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; 1 0001 MODULE Lbr_outputhel $ 
00 tancbace, (BL1SS32), 
s 008 $F y0e-000" 
$ & 004 rs ; 
; 5 005 1 BEGIN : 
3 S $8 : TITLE ‘Prompting and Library searching help function’; ; 
: 8 48 ! RRR ARR AA AAA ARERA REAR AA AE AEE AE AERA ETE ERATE AAA AATAARERARAERERAE REE b 
; $040 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * : 
; 0011 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * . 
3 \¢ pols : ~ ALL RIGHTS RESERVED. * 2 
3 : * 3 
; 0014 1 !* rss SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND fg Li * : 
oe 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * . 
; 0016 1 !* | CLUSION OF THE ABOVE COPYRIGHT NOTICE. eit SOFTWARE OR ANY OTHER * ; 
i Or 0017 1 !* COPIES THEREOF MAY NOT BE VIDEO OR OTHERWISE MADE AVAILABLE TO ANY * : 
; 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; 8 st : :* TRANSFERRED. * > 
: '® * Ps 
. 2 0021 1 !* THE pe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * $ 
H $$ B0S§ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
3 Si B8S7 : } CORPORATION. # 3 
3 '® * ° 
; & 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * $ 
; $8 Bo $ ; 7? SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
3 '® *® P+ 
; 628 0028 1 !* ® 3 
3 $3 it 34 1 PETTIITILILILILI LLL LLL LI LLL LLi LiL Lili Tiiiiiitiii iit iiiil $ 
3 0 1 : 
; «BT 0031 1 !++ 3 
; Re OoRs 1! 3 
. = 0035 1 ! FACILITY: Library access procedures. F 
s 0034 1! é 
: =» 0035 1 | ABSTRACT: F 
; »# 0036 1! 3 
ome 0037 1: LBRSOUTPUT_HELP outputs help text to a user specified output : 
. we 0038 1! routine. This information is drawn from an explicitly named 3 
s 0039 1! help library, or saat iene ty. from user specified default help F 
; 40 0040 1! Libraries. In addition, an optional prompting mode is available : 
oe 0041 1! so that CarsouTPUT "HELP can interact with a user and continue to 3 
Sa 0042 1! provide help information to a user after it has satisfied his : 
s 65 0045 1! initial help request. 3 
3; (44 0044 1! 3 
; «645 0045 1 ' ENVIRONMENT: 3 
; 46 0046 1! 3 
s 47 0047 1! VAX native, user mode. : 
; «648 0048 1! : 
3; «649 049 1 !-- : 
; 050 1! : 
; 3 051 1! : 
3 38 OO g ' AUTHOR: Peter George, CREATION DATE: 01-May-1981 : 
> 54 54 1 | MODIFIED BY: : 
; 3 S088 1/ 3 
re P28 1 | v03-005 GJA0081 Greg Awdziewicz 10-Apr-1984 : 
=e 0057 1! - Reduce the severity of the signaled ‘‘openin’’ error 3 


LOR -QUTPUTHELP Prompting and Library searching help function 18-560-1984 96:05:00 AX-11 Oh iseese 


OOOOCOoCOooOooO 


COOooooooooo 


a ee ee ed ed ed ed ed od = = = = od dd 


v03-004 


v03-003 


v03-002 


v03-001 


14-Sep-19 UTP 
from fatal to error in the open_library routine. 

- Return any error from open_liBbrary to fhe calling 

progres if the open fails for the specified main 


ary. 
si Update the ‘ROUTINE VALUE:"' comments to include the 
codes ‘‘openin’’, “‘nohlplibs’, and “usrinperr’”’. 


GJA0077 Greg agitate, 5 19-Feb-1984 

- Set prompt _flags(hcf$v_more] when switching Libraries 
at the end of the search_libs routine to fix AccVio 
which was occurring when the subprompt for a topic which 
is in more than one library comes from the subtopic in 
other than the main srorery when this subtopic was 
reguestes at the subtopic level from the main Library. 
- Flag the end-topic case to further gate the output 

of the additional libraries info. 

- Allow filenames to be 39 characters long. 

- Change the routine Make uppercase to use a translate 
table instead of conditionals inside a loop. 


LBR.SRC 


JWT0066 Jim Teague 22-Nov-1982 
Let RMS parse filenames. 
PCG0014 Peter George 06-0c t-1982 


Modify library name substr ng search so that it only 
checks for substrings that start from the beginning of 
the file name. 


PCG0013 Peter George _ 01-Jul-1982 
Make default search Libraries work again by correcting 
typographic error. 
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SNNNNOOO 
Fun 0an 


LIBRARY 'SYSSLIBRARY:STARLET'; 
REQUIRE ‘PREFIX’; 
REQUIRE ‘LBRDEF’; 


EXTERN, ROUTINE 
r$cl 


§ ose : RE 
lLbr$ini_control : ADDRE 
Lbr$get_help : ADDRE 
lbrSopen : ADDRE 


FORWARD ROUTINE 
prompt_help, 
search_libs, 
change_lib, 
switch_Libname, 
tran_next_lib, 


file_present, 
noheTp_log, 
remove_last_key, 
remove_terminator, 
make_upper_case; 


EXTERNAL LITERAL 
Lbr$_endtopic, 
Lor$_illoutrou, 
{eB 
lLbr$_nohlplibs, 
Lbr$_toomnyarg, 
lLor$_usrinperr; 


LITERAL 

tilename_length= 39, 
main_libnumber = -2, 
external_libnumber = -1; 


OWN 
end_topic_flag: BYTE 
syshelp ~COUNTEDSTRI 
RING (‘To 
COUNTEDSTRING ( 


subtopic 
VECTOR 


prompt_prefix : 


prompt_flags = control_f 


P 
help_flags : BBLOCK; 


LBR_OUTPUTHELP Prompting and Library searching help functio 
Lon Our pting y g help fu n 


NG ("SYSSHELP:.HLB"), 
pic? *) 
Subtopic? "3. 
BYTE) 
INITIAL (BYTE (4, 13 
control_flags : BBLOCK Chcf$c_lengthi; 


IND 
help_flags = control. flees Ch 
ags 


! Upda 


AX-11 Bliss-32 V4.0-7 


M12 
1ergeen 138s 93:95:28 «= Hea SRP sOsfpotHle ose, 


' Close t iorery 
} ages By erernee 
1 


! Get he 4 tex 
! Open Library 


Main proneting Loop 

Search default libraries till help is found 

ane current help Lib context to specified library 
e the Library name descriptor 

Get next user specified default help library 


! Open a “— sFerery 
p 


Close a he brary 

Set up help keys for Lbr$get_help 

Call lbr$get_help to get help from a Library 

Driver for the user pupel ied output routine 

Output List of default libraries available 

Determine if file exists 

Log unrecognized help requests 

Remove the last help key in a List of keys 

Remove the termination character at the end of a command 
Make a string all upper case 


Max filename Length. ae 
Library number of /LIBRARY specified Library 
Library number of non-default, non-/LIB Library 


meme 


Flag aborts text. 

Default aterery spec 
reps prompt string 
Subtopic prongs per ing 
Prompt control characters 


10, 13. 103), 
! Global control flags 


f$l_userlib] ! Use 


} r default Library (‘aps 
he fS$l_prompti: BLOCKC, BYTEJ; f 


! Prompt control flags 


- 
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LBR_OUTPUTHELP Prompting and Library searching help function 16-Sep-1984 02:04:0 AX-11 Bliss-32 V4.0-74 
ibe =000 Rout ine brSoutput help ° , 19-308 - 1382 95:95:08 YRBR. SRC OUTPUTHLP.B32; 
> «149 75 1 &SBTTL ‘Routine LbrSoutput_help'; 
; 150 1 1 GLOBAL ROUTINE Lbr$Soutput_Relp (output_rout, output_size, keys_desc, 
3; 43) 77 4 Library_desc, flags, input_rouft) = 
_ § 087 BEGIN 
, 4 087 
3; 6154 8 » le4 
: 133 tt : FUNCTIONAL DESCRIPTION: 
; 157 nik i This routine is the entry point for this module. It performs 
: 158 0884 : some initial processing on the input parameters, opens the main 
: 18 Bae? help library, and then calls prompt_help to do all the real work. 
: 161 Opes i CALLING SEQUENCE: 
3 166 0888 : 
; 16 0889 ' status = LBRSOUTPUT_HELP (output routine, = width C, Ckeys_desc) | 
: 166 Baas : C, Clibrary_desc , [flags] a Cinput_routine) JJ]] ) 
: 166 089¢ i INPUTS: 
3: 167 089 : 
; 168 0894 ; output_rout = address of user output routine 
; 169 0895 ! output_size = width of the output Line to be passed to the user 
3 170 0896 : output routine 
: 171 0897 : keys_desc = address of string desc for pore 
: ve 0898 : library_desc = address of string desc for help Library name 
s 7 0899 : ags = address of longword of option flags 
; «4174 0900 ' input_rout = address of user input routine 
: 175 0901 ! 
s 1% 090 ! QUT°UTS: 
3 (177 0903 2! 
3 178 Sone 2 The requested help text is passed to the output routine. 
: 180 0906 2 } ROUTINE VALUE: 
; «181 0907 ! 
: 82 0908 ; status lbr$_normal : : 
3; 6183 0909 2! lbr$_illoutrou Output routine improperly specified or missing 
3 «(184 0910 2! Lobr$_illinrou Input routine improperly specified or missing 
; 185 0911 § ' lbr$_toomnyarg Too many arguments 
3; «4186 091 ! lbr$_nohlplibs No help Libraries can be opened. f 
3 + 14 344 ; : lbr$_usrinperr Input error from user's action routine. 
: 189 0915 i Some errors which occur may be signaled. For example, if an error 
3; 190 0916 } occurs while trying to open the specified main default Library 
: «191 0917 ' the error will be signaled as an ‘‘openin’’ error. In this case 
: 136 6318 : the return code value will have the inhibit bit set. So the 
3 ier aah } return value will be 
: 195 09 : ! shr$_openin OR hlp$c_facility OR sts$k_error OR sts$m_inhib_msg 
: 197 09 
3; «198 924 MAP 
3; 199 925 keys_desc : REF BBLOCK 
; 200 ; 6 Library_desc : REF BBLOCK; 
; 203 03 8 ¢ BUILTIN 
: 0 9 ACTUAL COUNT 
> 204 0930 NULLPARAME TER; 
: 205 0931 
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; 9 LOCAL 

5 $9 9 ; getcmd_line : BBLOCK Chl p$c -pa esizel, ! Command Line buffer 

; 208 934 etcmd desc : BBLOCK [dsc$c in], ! Command desc 

: 209 935 ndices : BBLOCK hli$c *tengthi, ' Help Library indices 

; 210 9 § input_routine ! Address of user input routine 
: ei 9 li rafystring’: BBLOCK Cnam$c_maxrss], ! Default Library name string 

: \¢ 938 Libraryname : BBLOCK Cdsc$c _s_blnd, ! pecans descriptor for Library name 
ae | 0939 nomsg, ! Open_library message flag 

: 216 0940 output_ rout ine. ' Address of user output routine 
s 22 0941 output_width ! Width of output Line 

: 216 4k status; 

$ 17 94 

: 218 944 BIND 

; 219 945 main_libindex = indices Chli$l_mainindex], ! Index of /LIB Library 

; 220 946 Last_libindex = indices Chli$l—Llastindex], ! Index of Last Library examined 
: 2 bart 4 Last_libnumber = indices Chli$T_Lastnumb]; ! No. of Last Lib exenined, relative to all default 
; 38 br help_flags = 0; ! Clear help control flags 

3 €e2 0951 IF ACTUAL COUNT (> GTR hlp$c_params ! If too many arguments 

; $58 S226 § THEN RETURN Lbr$_toomnyarg; : then return error 

3 6¢e8 0954 F NULLPARAMETER chi * outrout) ! If output_routine missing 

3 $6? 0955 OR soutput rou ! or zero 

3 § 0 0956 THEN RETURN brs” tiastren ‘ then return error 

: He a4 44 § ELSE output_routine = .output_rout; : else store data 

; $35 0959 2 IF NULLPARAMETER (hl y _outwidth) ! If output_width missing 

> 234 0960 OR ..output_size EQL~0 ' or zero 

: 235 0961 THEN output_width = hlp$c_liswidth ! then use default 

; 236 8494 ELSE output_width = ..output_size; : else store data 

; $32 0965 2 

; 238 0964 $9 getcmd_desc = 

; an 0965 getcnd. wenet devise poingerd = getcmd_Line; 

; 240 0966 TF NOT ND LPARAMETER (hip$c_linedesc) ' if keys. desc present 

; 241 0967 GIN ! nen pick up passed descriptor 
: $6 096 getcnd desc Cdsc$w ase Pdscsy ekeys ages Cdsc$w.tengthi 

: 24 0969 PHSMOVE .getcmd_desc Cdsc$w_length ! fit buffer 

: 244 0970 eys_desc Cdsc$a_pointer], 

3; 245 0971 -getcmd_desc Cdsc$a_pointer] ); 

; 246 097 

: 247 097 

: 248 0974 eal = 0; 

; 249 0975 Libraryname Cdsc$a pointer) = Librarystring; ' in it ft potater to sorery 9 name buffer 
: 250 0976 IF NOT NULLPARAMETER (hip$c_Libname) ! If Library_name specified 

$s ol 0977 THEN NBEGIN ! then override default 

: 25 0978 help_flags Chipsy. clengttd,= 

ee 0979 i tbrer ner pesc® w_len Library. desc Cdsc$w_length]; 

: 254 980 ibrarynane f sc$w_l tong 

> ie 981 brary_desc (Cdsc$a_po iiss. 

: 38 4) aie -{ibrary_des Cdsc$a_pointer]); 

: 28 385 ELSE help_flags Chip$v_library] = false; 

; 260 9 IF NOT NULL PARAMETER (rete Fla flags) ' If flags present 

: 261 098 THEN help_ ft logs = lags i then get relevent bits 

3; 262 0988 (hipsm. prompt AND ..flags) 
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| 
| 
: 263 9 OR (hip$m_process AND ..flags) 
> 264 350 OR (hlp$magroup AND. ..flags | 
; 265 991 OR ehipen.systen AND ..flags) 
> 266 836 OR (hlip$Sm_liblist AND ..flags) | 
: 267 99 OR Cnipsa_nelp AND ..flags 
; 268 994 ELSE help lope =. gelb. flags OR hose ay : else set defaults 
3 269 R hipsm _process OR hl psn uP 
; 270 09 OR hlp$m-system — NO ntpsn_ iblist 
: q) 833 AND NOT Filp$m_help; | 
: 27 0999 IF .help_flags Chlp$v_prompt) ! If prompting enabled 
; 274 1990 THEN BEGIN “ desea eS Ces 
: e275 1001 4 IF ¢ "WULLPARAMETER Chlpss i inrout) ! And output_routine missing | 
; 276 1002 4 OR .input_rout E ! or zero 
; e277 100 THEN RET RN Lor$_ fllinrou ! then return error 
s en 1004 ELSE input_routine = - input. rout; ! else store data 
; 4 102 ; rompt_flags = hcf$m_cont; ! Turn on prompting 
3 $e bt ELSE prompt_flags = hcf$m_noprompt; ! else turn off prompting | 
3 sR 1009 IF .help_flags Eni pgv. process, OR If default Lib searching enabled 
3 see 1010 shelp. flags hip$v_ -proup. OR .hel flags Fhlpsv. system) 
; 285 1011 THEN Relp_flags = Thelp_flags OR psa alt then set all flag 
g 387 1Ol¢ ELSE help_flags = .help_flags AND NOT Rlp$m. all; i else clear all flag | 
3 288 1014 IF .help_flags Chip$v_library] ' If library specified 
3; 289 1015 ‘ THEN N'BEG 18 r i Then open A 
: 290 1016 3 | 
; 291 1017 3 heel Status; 
; 292 1018 3 nomsg = false; Signal error if hyecery can't be opened 
: 293 1019 3 toca status = open_library (main_libindex, Librar name, .nomsg); ! Open main Library 
: 294 1020 3 -local_statuS THEN RETURN .local_status; eturn any errors. 
; 295 1021 3 ay Libindex”= -main_libindex; Set last library used to main Library 
> 296 Ise H Last_libnumber = main_libnumber; | 
; 297 102 END 
; 298 1024 3 : 
: 299 1025 3 ELSE BEGIN ! Else use a default Library 
; 300 1026 ; 
; 301 1027 LOCAL 
: 302 1028 ; Libno, 
3 30s Oe. acmode; 
3; 304 1030 3 
3 305 1031 IF NOT pele flags Chlp$v_allj ' Are we allowed to? 
: 06 1038 THEN RETURN Lbr$_nohlpTibs; ! If not then signal error 
; 10 = -1; ! Initialize search 
; 308 1034 status = false: ! Init while condition 
; 309 1035 nomsg = true ! Do not signal open errors 
: 310 1036 WHIL Not Status i While more Libraries 
: 311 1037 4 DO BEGIN ! Get and try to open one 
: \¢ 1038 4 IF NOT tran_next_Llib (Libraryname, acmode, Libno) 
. Ww 1039 4 THEN RETORN LBr$_nohlpLlibs 
: \ ised 4 * pga = open_library (last "tibindex. Libraryname, .nomsg); 
: 1 104¢ ; Last_libnumber = 0; ' Set Lib number 
: 1 104 ND; 
3 18 1044 
: 19 1045 ! 
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: ! rk] } Call prompt_help to do the real help work. 

: 2 1048 2 status = prompt -help(getend desc, output_width, .input_routine, .output_routine, 

s 387 ed ndices, Libraryfname) ; | 
: 325 1051 2 IF .help_flags Chip$v_librar ! If Library specified 

: $ 1926 THEN floss library” (main_ (oindexd: ! Close the main Library 
; 8 1036 RETURN .status 
$ $3 1055 

; 0 1056 1 END; ! Of LbrSoutput_help 


-TITLE LBR_OUTPUTHELP evens ing and Library searching 
: help function 

-IDENT \V04-000\ 

-PSECT S$OWNS,NOEXE,2 


00000 END_TOPIC te 


.BLK 1 
00001 -BLKB 3 
99 00004 SYSHELP:.BYTE 13 : 
42 4C 48 2—€ 3A 50 4C 45 48 246 53 59 53 00005 eASCII \SYSS$HELP:.HLB\ ; 
00012 -BLKB § 
07 00014 TOPIC: .BYTE : : 
20 3F 63 69 70 6F 54 00015 ASCII \Topic? \ 3 
OA 0001C SUBTOPIC ie We 
20 3F 63 69 70 6F 74 62 75 53 6001D ASCII \S 
00027 BLKB 1 
OA OD OA OD 04 00028 PROMPT_PREF IX 
TE 4, 13, 10, 13, 10 : 
00088 3 
00030 CONTROL FLAGS . 
HELP_FLAGS= CONTROL _ FLAGS 
PROMPT_FLAGS= CONT LAGS+4 
~EXTRN LBRSELOSE, {BRST BSONTROL 
EXTRN HELP PEN 


*EXTRN ters Ce DTo Be, wey ILLOUTROU 
TEXTRN LBRS~ ALIN ROU, LBR$~NOHLPLIBS 
*EXTRN tBRS “TOOMNYARG, LBRS_USRINPERR 


| 
| 
| ; | 
ubtopic? \ ; 
-PSECT S$CODES.NOWRT,2 | 
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00FC 00000 -ENTRY LBRSOUTPUT HE P, Save R2,R3,R4,R5,R6,R7 > 0876 
57 0000' CF 9E 90002 MOVAB HELP AGS; ; 
SE FCD8 cE 9E 909 MOVAB -808T gp ; 
6? D4 0000C CLRL HELP_FLAGS > 0949 
06 6C 91 O000E CMPB AP) : 0951 
08 18 0011 BLEQU : 
50 000000006 8F rf 6 3 MOVL #LBRS_TOOMNYARG, RO > 0952 
6c 99 ote 18 TSTB CAP) ; 0954 | 
05 13 00010 2$ : 


ee - - 4 
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yOa=000 Routine UbrSoutput help eum 12n808- 138s 98:95:28 FAKE Bh iss oat VE O354 Page 5 V04 
04 aC D 1F TSTL 4(AP) ; | 3 
0 1 é BNEG © 3$ : | 
50 000000006 8F pO 00094 28: MOVL © ALBRS_ILLOUTROU, RO : 0956, : 
56 04 AC po $6 3$: MOVL  OUTPUT_ROUT, OUTPUT_ROUTINE + 0957 
02 6¢ 1 000 CMPB ss CAP), #2 + 0959 ; 
A 1F 000 BLSSU 4 : : 
08 aC D5 000 TSTL 8(AP) : | ; 
05 13 00038 BEQL : ; 
08 BC 0 00 A Ist @OUTPUT_SIZE + 0960 ; 
$ VZBL ‘ a F ; 
08 AE 50 i 9A i 4$ MOVZB #80, OUTPUT _WIDTH 0961 ; 
08 AE 08 BC DO 00046 S$: MOVL § @OUTPUT_SIZE, OUTPUT_WIDTH + 0962 ; 
9120 CE D4 00048 6$: CLRL GETCMD_BESC + 0964 : 
0124 ce 0128 CE 9€ O004F MOVAB GETCMD LINE. GETCMD_DESC+4 + 0965 ; 
0 6C 91 00056 CMPB ss CAP), B + 0966 ; 
17 1F 00059 BLSSU : ; 
0c AC D5 00058 TSTL  12(AP) : : 
12 13 00056 BEQL : ; 
50 0c AC DO 0006 MOVL _KEYS_DESC, RO + 0968 ; 
0120 «CE 60 BO 00064 MOVW (RO)> GETCMD_DESC : ; 
0124 dE 04 B60 0120 CE 28 00069 MOVC3 GETCMD DESC,~a4(RO), @GETCMD_DESC+4 + 0971 : 
0c AE D4 pore 7$: CLRL LIBRAR : 0974 ; 
10 AE 14 AE 9€ 0007 MOVAB LIBRARYSTRING. LIBRARYNAME+4 ; 0975 3 
04 6C 91 OOO7A CMPB sCC(AP), #4 : 0976 : 
1A 1F 0007D BLSSU : : 
10 AC D5 0007F TSTL  16(AP) : ; 
15 13 00082 EQL Ss ; : 
01 =A? 04 88 00084 BISB2 #4, HELP_FLAGS+1 : 0978 ; 
50 10 AC DO 00088 MOVL LIBRARY_BESC, RO : 0979 ; 
Oc AE 60 B80 0008C MOVW (RO), LIBRARYNAME 3 3 
10 BE 04 BO 0c AE <8 90099 MOS LIBRARYNAME, @4(RO), @LIBRARYNAME+4 F 0982 : 
01 A? 04 8A 00099 8$: BICB2 #4, HELP_FLAGS+1 + 0984 ; 
05 6C 91 0009D 9$: CMPB (AP), #5 : 0986 : 
4D 1F OOOAO BLSSU ; 3 
14 AC D5 O00A2 TSTL 20(AP) : : 
48 13 000A BEQL : ; 
50 14 BC 01 00 EF OO0A7 EXTZV #0, #1, @FLAGS, RO + 0988 : 
50 67 C8 site aisle HELP_FLAGS, RO ; : 
51 14 BC FFFFFFFD FCB 00080 BICL3 #3, @FLAGS, RI ; 0989 : 
FFFFFFFB ae B BICL #-5, @FLAGS, R 3 3 
50 14 F F ¢ 3 BICL 7 0 0990 
B L #-9, LAGS, $ P 
51 14 et FFFFFFF7 ef : it Bist § Ma S, RI 0991 : 
50 14 8 FFFFFFEF a cB 0004 BICL W-{7, @FLAGS, RO : 0992 ; 
51 14 eC FFFFFFDE 8 s 00E0 BICL3 #-33, @aFLAGS, R1 : 0993 : 
67 1 Q ¢ O0e9 BISL3 RO, R1, HELP_FLAGS ; : 
0 11 OO0ED BRB : 0987 ; 
67 F 88 OOEF 10$:  BISB2 #15, HELP_FLAGS > 0996 : 
1C 67 f 6 F211$:  BLBC  HELP_FLAGS, 14$ : 0999 F 
06 6C 91 000F CMPB ss CAP) 7 o#6 : 1001 : 
05 if 0 F BLSSU 12$ : ; 
18 AC D5 OOOFA TSTL 24(AP) ; : 
| 
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yO4=000 Routine PbrSoutput help ° “ 12-80-1382 98 95:08 LBR.SRCJOUTPUTHLP.B32;1 . (3) 
8 1 FD BNEQ 13$ : 
50 000000006 $F 06 ort 128 MOVL #LBRS_ILLINROU, RO ; 1003 | 
54 18 Ac 0 0107 138: MOV. INPUT ROUT. INPUT ROUTINE + 1004 | 
04 A7 . . 1 MOVL #1, PROMPT_FLAGS : 1005 
4 11 0010F BRB 15$ : 0999 
04 A7 1 CE 00111 14$:  MNEGL #1, PROMPT_FLAGS + 1007 
08 67 1 € 113 15$: BBS #1, HELP_FCAGS, 16$ + 1009) 
04 67 0 EO 0011 BBS ae. HELP-FLAGS, 168 + 1010 
06 67 F O10 BBC #3, HELPFLAGS, 178 : 
01 A? 08 b8 1 16$: 1 S82 ’ p HELP-FLAGS+1 + 1011 
01 A? § 8A a : 17$:  BICB2 #8, HELP_FLAGS+1 + 1012 
21 01 «A? g E1 00128 18$: BBC #2, HELPFLAGS+1, 19$ + 1014 
D4 001 9 CLRL = NOMSG + 1018 
52 DD 001 PUSHL  NOMSG + 1019 
10 AE OF 01 4 PUSHAB LIBRARYNAME : 
011¢ cE 9F 00137 PUSHAB MAIN LIBINDE : 
0000v CF 9 FB 00138 CALLS #3, OPEN_LIBRARY : 
76 0 €9 90149 L LOCAL_STATUS, : 1020 
0118 CE 0114 ce DO 0014 MOVL §§ MAIN CIBINDEX, LAST_LIBINDEX + 1021 
011C «CE 02 CE 0014A MNEGL #2, CAST_LIBNUMBER + 1022 
3D 11 OO14F BRB 4 + 1014 
19 01 «A? 03 €1 00151 19$: BBC #3, HELP_FLAGS+1, 21$ + 1031 
6E 01 ce 00156 MNEGL #1, LIBNO : 1033 
52 01 7D 00199 MOVQ. #1. NOMSG + 1035 
2B 53 €80015C 20$:  BLBS STATUS, 23$ : 1036 
SE DD 0015F PUSHL SP : 1038 
08 AE OF 90161 PUSHAB ACMODE ; 
14 AE 9F 00164 PUSHAB LIBRARYNAME : 
0000v CF Q FB 00167 CALLS #3, TRAN_NEXT_LIB : 
08 0 €8 0016C BLES =seaR ; 
50 000000006 BF DO O016F 218 MOVL §§ #LBRS_NOHLPLIBS, RO : 1039 
04 00176 RET 3 
52 DD 00177 22$: | PUSHL NOMSG > 1040 
10 AE 9F 00179 PUSHAB LIBRARYNAME ; 
0120 cE 9F 0017C PUSHAB LAST _LIBINDEX F 
0000v CF 03 FB 00180 CALLS #3, OPEN_LIBRARY 3 
53 50 pO 00185 MOVL ; 
d2 11 00188 BRB : 1036 
011C CE D4 0018A 338: CLRL _—«LAST_LIBNUMBER + 1042 
OC AE OF 00186 4$: | PUSHAB LIBRARYNAME : 1048 
011 CE 9F 00191 PUSHAB INDICES ; 
0050 8F 88 0199 PUSHR #*M<R4,R6> : 
18 AE 9F 00199 PUSHAB OUTPUT.WIDTH ; 
0134 CE 9F 0019¢ PUSHAB GETCAD F 
0000v CF 06 FB OO1A0 CALLS #6, PROMPT_HELP ; 
53 50 DO 001A5 MOVL RO, STA F 
09 01 AZ 02 a O1A8 BBC #2, HELP _FLAGS+1, 25$ : 1051) 
0114 CE SF OO1AD PUSHAB MAIN _LIBINDEX > 1052 
0000v cr 91 FB 0181 CALLS #1, CLOSE_LIBRARY : | 
0 3 p 0186 258: MOVL STATUS, RO > 1054 
4 001B9 268: : 1056 


; Routine Size: 442 bytes, Routine Base: S$CODE$ + 0000 


Se 
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yOc=000 outing prompt_help j . 2 1 730071382 95:95:2 EtBR. SRC OUTPUTHLP.B32; ° ) 


i 
| 
| 
7 1 &SBITL ‘Routine prompt_help'; | 


R 
; 1 . : 
3 : 1 34 1 ROUTINE prompt_help (getcmd_desc, 1 ay width, input_routine, 
; 1059 1 output_routine, Tndices, Libraryname) = 
: 5 1989 BEGIN 
: 106¢ 1++ 
; 3 ISS? : FUNCTIONAL DESCRIPTION: 
: 340 ibes i This routine contains the interactive code loop that is repeatedly | 
3; «341 1066 : executed when help is being run in prompting mode. This same loop 
3 : H's } is executed exactly once when noprompt is specified. | 
; 4b 1986 t INPUTS: | 
; 346 1071 i getcmd_desc = address of the descriptor for the set of keys 
; ef 1S%e } to be processe 
: ep see output_width = address of longword containing width of output Line | 
; 351 176 ; input_routine = address of user supplied input routine 
: 358 1978 2 output_routine = addresss of user supplied output routine 
: 355 1080 ; i indices = address of data structure containing indices of 
: $28 st Libraries currently in use 
: $25 1088 3 lLibraryname = address of string desc for default help Library name 
: 350 1085 2 ! ouTPuTS: 
; 361 1086 : 
: 368 im too 
; 364 1089 i ROUTINE VALUE: 
; 366 1091 ‘ i Always true. 
; 367 109 ‘ 
: 369 1094 5 map 
: 370 1095 ; etcmd_desc : REF BBLOCK, 
; 1096 ndices : REF BBLOCK, 
: 37 1097 Libraryname : REF BBLOCK; 
: fe 1999 LOCAL 
: 375 1100 char_pos, ! Position of first non-blank character in input str 
; 3 1101 key_descs : VECTOR Cdacte 8 bln * Bisse pasheys, BYTE], 'String descriptors for keys 
3 377 1198 ke =p ongth_orrey : VECTOR CAilp$c_maxkeysJ, ! Array of key Lengths 
; 378 110 \iboname : BBLOCK Cdsc$c_s_bln], ' Library name descriptor 
3; 379 1104 Lib-name_buf : VECTOR Cfiléname_length, BYTE], ' Library name buffer 
: 380 1105 print_data : BBLOCK Ehedse length) ' Data structure for output driver 
3 3a) 1198 topic_prompt : BBLOCK [dsc$c_s bln], | ! Topic prompt descriptor 
; 5 110 topic_prompt_but : BAL OLE thUpsc pagesize), ' Topic prompt buffer 
: 38 1108 sub_prompt : BBLOCK Cdsc$c_s_blnJ, ' Sub-prompt descriptor 
; 384 1109 sub_prompt_level, ' Current key depth 
3; 385 1110 sub_prompt_line : BBLOCK Chipsc_pagesizel. ! Sub-prompt Line 
3 '] 112 sub_prompt_buf : BBLOCK Chlp$c_pagesizel, ! Sub-prompt buffer 
; 388 11 


| 
status; | 
| 


89 


SESeeces 
SLSSRELSSSSLRGPSSS 


8 
409 


WINN AIRIPOPINPOPONINININYNYD 2 9 SS St 


yo??? tt Yt > tt Dt tat at a ee eS 
Ww 
oO BISARUNSLSSSVSEGRUN -SowmNenewnwoo 


alsa 


Bt: 


cc em ce ee ec ee ec ec ec ee ee ee me ee ee ee ee ee ee ed ed ed ed ed od 


NO 


DINE BBE EE FANNIN WWIII NINN nonononononononyg 


SOOWONOULSWN OO 


print_flags = print_data $B_printflag] : BBLOCK,! Flags 
ri Eaton tevel ec print data’ {hodBl subpat Lev ‘ ! Level 
sub_prompt_ptr = print_dat Rerst suneat 

length_array = print_data L_le 


hod 
outputroutine = print_data Chpdst output rou): 


length_array = key_length_array; 
outputroutine = .output_routine; 


Lib_name = 0; 
Lib_name Cdsc$a_pointer] = lLib_name_buf; 
IF NOT .help_fl 


ags Chip$v_library] 
THEN switCh_Libname (.Tibraryname, Lib_name); 


see lccrenet CéesSa_ point 
opic_ prom $c3a_poin 
CHSMOUE . 3 


er] = topic_prompt_bu 
(.prompt_prefix (0J, 


sub_prompt = 0; 
sub_prompt Cdsc$a_pointer] = sub_prompt_line; 
CHSMOVE (.prompt_prefix C0J, prompt_prefix [ 
WHILE s-prtcnd desc Cdsc$w_length] GTR 0) 

AND (C 


DO BEGIN 


HSRCHAR (.getcmd_desc Cdsc$a_pointer]) EQL %C* ') 


getcmd_desc panceu.tongtad = .getcmd_desc Cdsc$w_length] - 1; 
pescad_Sone 


IF {-getend desc Cdsc$w_length] GTR 0 


) 
(CHSRCHAR (.getcmd_desc Cdsc$a_pointer]) EQL %C'a') 


THEN (change_lib (.getcmd_ desc, .getcmd desc ([dsc$a_pointer], 
.indices, Lib_name)); 


WHILE (.prompt_flags AND hcf$m_cont) NEQ 0 
DO BEGIN 


IF sprompt, flags EQL hc f$m_noprompt 


EN prompt_flags = NOT he tén, noptoapt: 


IF .prompt_flags GIR hcf$m_sta 
iREN BEGIN . spins 


' 
; If moving down a prompt level then update the subtopic prompt. 


IF ‘-pronat flags AND (hcf$m_more OR hcf$m_stay)) EQL hcf$m_more 
THEN BEGIN 


2 buf; 
prompt_prefix [1], topic_prompt_buf); 


11, sub_prompt_Line); 


dsc$a_pointer] = .getcmd_desc Cdsc$3_pointer] * i 
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ine Brompt_help . . , 122808-1 384 93:95:28 LBR.SRCJOUTPUTHLP.B32; — (4) 
BIND 
resect iBinger = nes BUGIstaseinder], | Jniey ot (GMP LABPEEY examines 
“a ex], ! Index of las rary examine 
Last_libnumber = indices Chli$T_Lastnumb ! No. of last Lib examined. relative to all default 
etcmd_line = .getcmd_desc ([dsc$a_pointer ! Command buffer 
rue_keys = print_data hpd b_truekeys] : SIGNED BYTE, ! Number of help keys 
help_level = print_data te d$B_helplevell : E ! Current key depth 


for output driver 
of additional info 
¥ ! Ptr used for filling sub-prompt buffer 
narray] : REF VECTOR, ! Address of key Length array 
! User specified output routine 


Init print_data array 


Initialize Library name 


If no main Sree ary 
Then use passed Library name in pr 


Initialize topic prompt 
Initialize sub-prompt 


Remove any preceeding blanks from 


If non-empty help keys | : 
And initial key starts with ‘a’ 


Then change to specified Library 
WHILE we can still continue... 
If one shot command 

Execute while exactly once 


If prengt ing enabled 
Prompt for keywords 
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v04=- Routine Bronpt.. help . . , 1278 08- 1982 95:95:09 LBR.SRCJOUTPUTHLP.B32; nas (4) | 
; 44 1171 LOCAL | 
; see 1128 sub_length; | 
> 449 1174 IF .Lib_name Cdsc$w_length] NEQ 0 ! If not main Librar 
3 tay 1302 ? THEN” ein ae - ities snel. Line ome ! Then insert library name in ne, 
: 42¢ 1199 6 CHSMOVE (. fp snore. ascouet Léngth 
> 45 1178 6 Lib: “name Cdsc$a zpointerd, 
3 454 1179 6 beBrompt. Line # 4 + 1); 
: 455 1180 6 CHSWCHAR Cax? » sub_prompt Line’ : 4 +1 + .Lib_name Cdsc$w ahengehd); 
: $28 133) 6 sub. prompt Cdsc$w_length] = 4 + 1+ .Lib_name Cdsc$w_length] + 
; 438 1188 ; ELSE sub_prompt Cdsc$w_length] = 4; ! Otherwise skip to keys 
; $B RRALVEPEPca fanathemBtsP prompt: Bat omee hot | RGVEMAESE SREB" hrStot Un 
3 re ¢ 1187 é sub_prompt (ine ou Prompt Cdsc$w_length]); 
; 46 1188 CHSMOVE (. -Subto pic (0), get ® C1), 1M Move subtopic?’ into prompt Line 
> 464 1189 5 prompt_line_+ .sub goronpt Cdecdy length] + .sub ~tength) 
: 465 1190 5 sub prompt ascsu Ptgngth? = -sub_prompt Cdsc$w_lengthJ Update prompt length 
: 466 1191 5 + vSab et Length + .subtopic (0); 
ret 1138 ? ES prenet. towet = ,help_level; ! Update prompt level 
OWE E, 
: 471 1196 4 If subprompt Length greater than zero, then do subtopic prompting. 
: 47 1198 4— 
3: 474 1199 4 IF peu preset Cdsc$w_length] NEQ 0 | 
: of? 1590 2 THEN BEGI 
> 477 1202 5 LOCAL 
; 478 1203 5 prefix_ Length. 
3 rth 1eoe : sub_ length; 
: 481 1206 5 IF .lib_name Cdsc$w Length) yee 0 ! If not main Library | 
: 48 1207 5 THEN™ prefix_length = 4 + -lib_name Cdsc$w_length] + 1 : Then prefix includes Lib name 
3 ret 1608 5 ELSE prefix_length = 4; ! Else it doesn't 
; th 1¢10 sub_length = .sub_ Prompt fd Cdsc$w length] - .prefix_length ! Calculate Length of keys 
6 - SU 
; re 1312 : CHSMOVE (.sub agra “bas <prompt Line + .prefix_length, ! Move keys into command Line 
; 489 1214 2 getcmd_desc tdsc$ Md eats “hl psc abagesize = .sub_len th; ' Calculate space left in command Li 
: res ! + : getcmd_desc [dsc$a_pointer] = getcmd_line + .sub_léngth; ! Set pointer to end of keys 
: 49 1217 6 IF (status = (,input_routine) (getcmd_desc_ (Cdsc$w -fength? ' Get input 
3; 49 1218 5 beer re getcmd_desc Cdsc$w_léngth])) EQL™RMS EOF ! If CNTL=Z 
ats 1339 3 THE TCO us Pe 2 as 
: £38 : 1 : THEN’ RETURN lbr$_usrinperr; i Then signal user input error 
: 498 1 : ; IF ((char <Pos = CHSFIND_NOT_CH 46:98 cad_d #5 FAtcte Length], ' If blank Line | 
: 499 1224 6 etc cmd_ qese CdSc$a_po inter de. ZASC *)) EQ. 0) ' Or CR 
; 300 ! 5 6 OR (CHSRCHAR™(.char_pos)EQL %x' 6') !' Then back up a prompt level 
: 502 1 : 6 THEN IF (sub_prompt_level = .sub_prompt_level - 1) EQL 0 ! If now at topic level 
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1602000 Routine Prompt. help r . , ets 7 95 % £99 LOR -SRE OoTPUTHLP 635, — ch 


: 03 } 8 5 [nes gy sub bpromet Cdsc$w_length] = 0 ! then clear subtopic prompt 

: 505 1250 4 Paneees last key (sub_promp fe ! else remove last key 

: BS 1231 6 y_length_arra sub_prompt_ Level+1]); 
: 308 ; § ? prompt. _tiege” = nets backup OR fic f$m_cont; 1 Set backup flag 
: 509 1234 6 

: $10 1235 9 ELSE SELECTONE (CHSRCHAR ( qetcnd. desc Cdsc$w pengthd + ! Test termination character 

: ae : $ -getcmd_desc tdsc$a -bointerJ - 13) 

2 ee paes2"3s FE Paalia to elgg ot 
3 ' then re 

3 a2 1240 6 2 desc Fdscéu. Length] _= .sub_length; co sepasae ects dt igs oe 
; 516 1241 gercmd. desc Cdsc$a_pointer] = getcmd_ ine; 

Bi 

: $19 1244 § CXx"1A'): ! If CNTL=Z 

: 239 1st? : EXITLOOP: ! then get out of help 

; 322 1247 § COTHERWISE3: If help keys 

3 Se 1248 6 BEGIN ' then append command to old keys 

> 526 1249 6 getcmd_desc pdsc$u. Length] = .getcmd_desc Cdsc$w_length] Py -sub_length; 

: 2 ? : 39 ¢ eo desc Cdsc$a_pointer] = getcmd_Line; 

BRS ma 

3 29) 1$2¢ 2 remove_terminator (.getcmd_desc); ' Remove termination character from 
: 531 1256 4 END; 

. oe ae 

: 534 1259 4 ' If subtopic Length equals zero, then do topic prompti 

; 537 1s06 4 IF soe preset Cdsc$w_length]) EQ. 0 

. ce 

: 540 1568 5 getcmd_desc fdscéu. length] = _hlp$c_ sbages ize: ! Init rest of descriptor 

; a3 1566 : getcmd_desc Cdsc$a_pointer] = getcmd_line; 

: 208 1268 5 IF .last_libnumber GEQ external_libnumber ! If not main Library 

> 544 1 $9 6 THEN BEG! ' Then insert Library name in prompt 
; 545 1270 6 CHSWCHAR (%C‘a', An Mattes abut + 4); 

; o48 1271 6 CHSMOVE G tie. nine, Seba. qngth 

; «54 1 i 6 b_fane Cdsc @.po} nterJ, 

; 548 1273 6 ing ¢ ompt_ put + 4+ 1); 

; 549 1274 6 CHSWCHAR x 26 opic prompt byt +4h+1+ 

: 550 1275 6 ane ial en xf 

s 331 1 6 6 CHSMOVE t. <toBte 

; 226 1277 6 prompt, bu * »s + Lib. name Cdsc$w_length] + 1); 

3 3D 1 8 6 topic_ prompt “Tasefy 1 en et + 1 

: a2¢ ' 44 6 ae Lib_name Cdsc$w a cena + * + .topic (0); 

; 534 ; Hy e ELSE eens d { th) = ; ants Oo ' Otherwise, do not include Library 
g rom sc$w_len - topic 3 

: 938 1288 6 Fonte pre aR bad th pa . 


ic 
A _prompt_ bors 
| 
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Then get out of help 

Else back up to main Library 
Close old user Library 

Set main Library number 


e 
THEN EXITLOO 
ELSE BEGIN 
close Library (last_libindex); 
Last_libnumber = main_libnumber; 


ooo 
Ooo 


And index 


lLast_libindex = .main Sy aes 
AJ =_0; 


Lib_name Cdsc$w_len Reset Library name 
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1be=000 Rout ine Brompt help J ° 4 13-808 =138e 95:95:08 LOR SREIOUTPUTHLP 632, ™ (4 
se 1 8 END; ; 
6 e IF (status = (.input_routine) (pgtced.desc Cdsc$w_length] ! Get inpus ; 
8 topic prompt, getcmd_desc [dsc$w_length])) EGL R S$_EOF ! If CNTL=Z : 
89 THEN EXTTLOO ! Then get out of help ; 
90 ELSE IF NOT .status ! Else if other error F 
4 THEN RETURN Lbr$_usrinperr; : Then signal user input error : 
38 IF ((char_pos = CHSFIND_NOT_CH (.getcmd_ desc [dsc$w hongehd. If blank Line ; 
94 agetcad dese Cdsc$a_ ginger) ZASCII ' ')) EQt 0) Or CR : 
95 OR (CHSRCHAR(.char_pos)EQL %X'06") Then back up a Librar ; 
96 THEN (IF (.last_libnumber LSS external  Sonyaber If already at main tibrar : 
97 OR NOT .h tp. flags Chip$v_liBrary]) or if there is no main library : 


t 
getcmd_desc (Cdsc$w Pengthi = 0 Clear command descriptor 


getcmd_desc Cdsc$a-pointer] = getcmd_Line; 


preaet..t lege = hcfSm_backup OR hcf$m_cont; Set back up flag 


ELSE SELECTONE (CHSRCHAR (.getcmd_desc Cdsc$w ponges’ Test termination character 


-getcmd_desc Cdsc$a_pointer] - 1)) 0 


f ? 


Czc°?*I: If ? 
8 Then repeat help for old Library 


EGIN 


SRVSFAR AW HOOPS IN ODO Ua Roe 


getcmd_desc Cdsc$w_length] = 0 


PPP PVPS IVIL SUSUSISISTUSUSUSISI SSIS TSS ISIS 


OOO NAULS WA OODONOULSWN OOO NOUL Ww 
FERRE RNR WAAES FNMA AUN A A AUN AAA NNN NNO NOOO NUIUIUIUIUIOUIUN 


a ee ee ee ee ee ee ee eee ee ee ee ee ee S| 


30 
Hi 

0 
30 
30 
30 
30 
30 
31 
3 

1 
31 

90 31 etcmd_desc Cdsc$a_pointer] = getcmd_line; 

91 31 END: - : = 

3 31 

9 31 CXx"1A'): ! If CNTL-Z 

ae 3) EXITLOOP; ! Then get out of help 

96 32 COTHERWISE]: ! If help keys 

97 32 IF (CHSRCHAR (.char_pos) EQL %C'a') ! And start with ‘‘a" 

98 32 THEN (change_libd (.getcmd_ desc, .char_pos, ; 

99 32 -indices, Lib_name)); ! Then change to specified Library 
608 32 remove_terminator (.getcmd_desc); ! Remove termination character from 
604 3 END; 

605 3 

ry $3 END; ! Of prompt for keywords 

608 338 IF (-prompt. flags AND hcf$m_backup) EQL 0 ! If not backing up a level 

609 4 THEN BEGI ' then get help text 

610 $32 IF sprompt. flags NEQ (NOT hcf$m_noprompt) ! If not prompting 

611 $ THEN prompt_flags = hcf$m_cont; . rey to continue prompting 

ol¢ sub_prompt_ptr = sub_prompt_buf; ! Init subtopic buffer pointer 
61 8 help_level = 0; ' Set current key depth to zero 
614 39 add_info_level = 0; 

615 40 setup_keys (,getcmd_desc, key_descs, true_keys); ' Set up individual help key descs 
616 41 print-flags pd$v_init] = 0; ! Set print not initialized flag 
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Routine prompt_help -Sep-19 
; 617 1342 4 end topic_flag = false; ! Clear flag which aborts text. 
; 618 1 rk 2 IF NOT (status = search_Llibs (key_descs, .output_width, print.data,: Search the libraries for help 
; 619 1344 -indices, L7b_name, .Sub_prompt CdscSw_lengthJ)) 
; 620 1345 4 THEN RETURN “pfetus: 
; 621 1346 4 IF .print_flags Chpd$v_init) ! If no help found 
; 6 ¢ 1347 4 THEN nohelp_ 09 g-getcnd.desc ! Then Log help request 
; 6 1348 4 IF help. flags hUp$v_liblist] AND i Output List of libraries if condit 
> 624 1349 4 NOT .end_ topic flag AND ! are right 
: 625 1350 2 Cf, true Feys LEQ 0) OR 
; ? $ : 2) ? ((,add_info_level EQL 0) AND .print_flags Chpd$v_init])) 
; 699 | 35 : . Libs_available (.output_routine, .output_width); 
3 $30 He ELSE prompt_flags = hcf$m_cont OR hcf$m_stay; ! Say to continue prompting at curre 
: 63 1357 2 END; 10f whi 
: 83 1338 wstie:, 
> 634 1359 RETURN true 
3 639 1360 
; 636 1361 1 END; !Of prompt_help 


OFFC 00000 PROMPT_HELP: 
- WORD 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1058 

SE F92C «6 CE «O9E 00002 MOVAB -1748(SP), SP : 
5A 14 AC DO 00007 MOVL INDICES, R10 + 1115 
58 04 AC DO 00008 MOVL § GETCMD_DESC, R8 : 1118 

59 04 AS 9E O000F MOVAB 4(R8),~R9 : 

69 DD 00013 PUSHL  (R9) : 
FF50 CD 88 AD 9E 90015 MOVAB KEY_LENGTH_ARRAY, LENGTH_ARRAY + 1127 
FF4C CD 10 AC 00 00018 MOVL OUTPUT ROUTINE, OUTPUTROOTINE : 11¢8 
80 AD 04 00021 CLRL LIB_NAME + 1130 
84 AD FF58 CD 9E 00024 MOVAB LIB_NAME BUF LIB_NAME+4 > 1131 
0B 0000" CF 02 £0 0002A BBS #2, HELP-FLAGS+1, 1$ : 1132 
80 AD 9F 000 0 PUSHAB AME : 1133 

18 AC DD 000 PUSHL LIBRARYNAME : 

0000v CF 02 FB 00036 CALLS #2, SWITCH LIBNAME : 
FF3C «6CD OM 0038 1$: CLRL. TOPIC_PROMPT : 1135 
FF4O CD FD3C «= CD SO9E ~0003F MOVAB TOPIC-PROMPT BUF, TOPIC_PROMPT+4 + 1136 
50 0000" CF 9A 00046 MOV ZBL PROMPT PREFIR : 1137 

cD 0000' CF 50 28 0048 MOVC3 RO, PROMPT_PREFIX+1, TOPIC_PROMPT_BUF ; 
FD34 CD D4 0005 CLRL. - SUB_ : 1139 
FD38 CD 020c CE 9€ 00057 MOVAB SUB-PROMPT_LINE, SUB_PROMPT+4 : 1140 
50 0000" CF 9A O05 MOVZBL PROMPT PREFIX, RO > 1141 

CE 0000' CF 50 28 0006 MOVC3 RO, PROMPT_PREFIX+1, SUB_PROMPT_LINE ; 
68 85 00068 2$: TSTW © (RB) > 1143 

0c 13 0006D BEQL © 3$ : 
20 00 B89 93 O6f CMPB a0(R9), #32 : 1144 

0 if 073 BNEQ $ : 
68 8B 0075 DECW (RB) > 1146 
6 D6 007 INCL (R9) > 1147 
FO 11 00079 BRB 2$ > 1143 
6 8 0078 3$: TSTw (RB) : 1150 

1 0070 BEQL 4$ : 
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v04=000 Routine prompt. help ' . " 14- ~8ep =| 198 93: 9% ‘09 LOR SREIOUTPUTHLP 632, “ir (4) 
40  8F 00 9 9 $08 cMPe — #64 : 1151 
80 AD 9F ° 6 PUSHAB ul _NAME : 1153 
SA DD 0 PUSHL R + 115 
69 DD 00088 PUSHL  (R9) + 1152 
8 DD 0 D PUSHL R8 : 
0000v CF 04 FB F CALLS #4, CHANGE_LIB : 
03 0000" cf R. 094 4$ BLBS PROMPT_FLAGS, 5$ ; 1155 
FFFFFFFFE © 8F 0000' Cf b} 009¢ 5$ cMPL PROMPT FLAGS, #1 ; 1158 
9000" CF D4 OOAz CLRL  PROMPT_FLAGS + 1159 
02 tF D1 OOOAB 6$ CMPL § PROMPTTFLAGS, #2 + 1161 
Pe 00089 Ber eS : 
50 0000" CF FFFFFFF9 8F CB 00085 7$ BICL3 #-7, PROMPT_FLAGS, RO + 1168 
” a0 Oe bore Gnen | tO$ 
56 80 AD 3¢ Gack MOVZUL LIB_NAME, R6 : 1174 
0210 CE 40 8F 90 OOOCA MOVB_ #64, SUB_PROMPT_LINE+4 + 1176 
0211 CE 84 BD 56 28 90009 MOVC3) R IB-NAME+4, SUB_PROMPT_LINE+S : 1179 
0211 CE46 20 90 000D MOVB a3 8, SUB PROMPT LINET5CR6) ~ + 1180 
ceneta te 2 Os 41 Ooors ADOUS BB. RG, SUB_PROMT tH 
FD34 CD 04 B0 OO0ES 8$: MOVW PROMPT > 1183 
50 Oc AE i OOOEA 9$: MOV $6. SReRPY BUF, RO + 1185 
57 FF44 CD 50 g OOOEE SUB 80 “SUB PROMPT. “PTR, SUB_LENGTH : 
56 FD34 CD 3C O00F4 MOVZWL SUB_PROMPT, : 1187 
020C CE46 Oc AE 57 28 000F9 MOVC3 UB LENGTH, SUB_PROMPT_BUF , SUB_PROMPT_LINE~; 
50 0000" CF 9A 00101 MOVZBL SUSTOPIC RO + 1188 
56 57 CO 00106 nDDLE SUB_LENGTH, R6 + 1189 
020C CE46 0000" CF _ 50 ¢8 00109 ovc3 RO “SUBTOPICS. SUB_PROMPT_LINELR6] F 
FD34 CD 20 oe gf aM ith ADU SusTOF §UB_PROMPT 5 oem 
58 FF55 CD 9A 0011D MOVZBL HELP téveL™ “SUB. PROMPT_LEVEL : 1192 
51 FD34 «CD «3C 001 é 10$:  MOVZWL SUB_PROMPT. R1 : 1199 
oond 31 00199 oot 
80 AD 8 Ol2c 11$:  TSTW LIB_NAME : 1206 
09 1 91 F BEQL 12$7 : 
50 80 AD 3¢ 00131 MOVZWL LIB_N grENGTH > 1207 
“ Bie pe i meric | 
50 04 09 013A 12s MOVL #4, PREFIX LENGTH : 1208 
51 0 C2 00130 13$ SUBL2 PREF IX LENGTH, ; 1210 
POE cde 0:1 a a ea ee Bok 
00 BE 020c cE40 28 53 b0148 MOVC SUB-LENG TH Su 3k ROABT CINE= : 1212 
68 0200 8F 56 a3 00151 SUBUS SUB_LENGTH, #510, (RB) > 1214 
69 6E 26 ct a138 ADDL 3 SUB-LENGTH, taps’ (R9) : 13 
FD34 Cb OF 00180 PUSHAB SUB_PROMPT > 1217 
8 DD 00161 PUSHL ae : 1218 
oc ac 03 FB 00163 CALLS #3, @INPUT_ROUTINE : 
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] 
; 638 1362 ] XSBITL ‘Routine search libs’; | i] 
; 639 1365 1 ROUTINE search_libs (kéydescs, outputwidth, printdata, . 4 
; 640 1364 1 indices, Libname, subpromptlen) = 2 
; 641 1365 2 BEGIN | i 
& 6 3, Eat 
3 ore ! o8 FUNCTIONAL DESCRIPTION: : 
: 646 1370 i This routine searches the default help Libraries and calls the ‘ ; 
: 647 1371 ! Librarian function to extract help from each help Library as 4 
: “8 : I required. 2 
: $30 1324 gj INPUTS: i] 
; 626 1378 keydescs = address of vector of key descriptors : ! 
: $28 1378 2 ! outputwidth = address of longword containing width of output Line : } 
: 656 1380 : i printdata = address of data structure containing info for : } 
; 62% 133) § the output driver e} 
; 659 1383 2 i indices = address of data structure containing indices of ; 
; oe9 13 § Libraries currently in use ¢ | 
; a6 1356 H ! Libname = address of descriptor for the user default Library name : : | 
; +¢ 138 § subpromptlen = total length of help keys, zero => at topic prompt level | : ! 
i 666 1390 g i outputs: i] 
: 668 1338 2 i printdata = flags are manipulated by this routine and other : ! 
3 66" 1332 § values are altered by the output driver : | 
: 671 1395 2: indices = updated to reflect Library that help information : : 
; O76 1396 § was eventually extracted from é 
3 674 1398 2! Libname = if help found in default user library, updated to : ! 
3 $7? 178 § the file name of that Library z | 
; 677 1401 3 i ROUTINE VALUE: | 
: 679 1208 2 | Always true. 31 
; 680 1404 2! 
HBS Saw 
: 68 1407 indices : REF BBLOCK, | 
3; 684 1408 keydescs : REF BBLOCK, 
; 685 1409 Libname : REF BBLOCK 
> 686 1410 ‘ printdata : REF BBLOCK; 
; rt 1412 BIND 
: 689 1218 g main_libindex = indices ChlLi$l_mainindex], ! Index of /LIB Library : 
; 690 1414 last_libindex = indices Chli$l_lastindex], ! Index of last library examined , | 
; 691 1415 last_libnumber = indices Chli$l_lastnumb], ' No. of Last library examined, relative to all deta | 
: 4 oie print_flags = printdata Chpd$b_printflag) : BBLOCK; ! Flags for output driver 
: 69% 1418 2 LOCAL | 
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outputwidth, .printdata, .keydescs)) 
THEN RETURN (i status); 
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Lize help found flag 
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f found 
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' if 
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-last_libindex; 
gst_l tbnuaber; 


rue; 
lbrhelp (Last _libinde 
printdata, .keydescs 


ber = .l 
call. 


IF (.current Libnumber NEQ .last_libnumber) 
THEN BEGIN 


IF (. last libnumber GTR external_libnumber) 
THEN close_Library (Last_libi 
IF (.current_Tibnumber GTR externa 


Libname Cdsc$w_length] = 0; 
-current_Libindex; 
Last_libnumber = .current_Libnumber; 
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If help still not found 
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Set Libindex 
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Print help not available message 
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Then clean up ’ 

If last Library not main Library 
Then close that library | 

If new Library not main Library 


Then change Library name and 
indicate that there's more. 


Otherwise, simply reset it 


Reset Last Libindex 
Reset last Libnumber 


Of search_libs 
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#1, _LIBNO 

ae. R2)> 12$ 

DEFLIB_ACMODE 

LIBRARYNAME 

, TRAN_NEXT_LIB 


10$ 
CURRENT _LIBNUMBER 
SeRRENT. “LIBNUMBER, (R6) 
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LIBRARYNAME 
CURRENT LIBINDEX 
. » OPER_LIBRARY 
KEYDESCS 
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OUTPUTWIDTH 
CURRENT _LIBINDEX 
#4, GALE LBRHELP 
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Lb R= O00 Routine Search. Li . 9 , 2 =Sen- 1982 6: S: 9 a BR. gRed0 OUTPUTHLP. g35¢ . 5 
7 DD 0 FS PUSHL 7 2 1484 2] 
69 F CALLS #4, CALL_LBRHELP : :] 
4 0 D FA MOVL RO, STAT OS ; 2] 
04 4 £8 OOOFD BLBS = STATUS, : 7] 
0 54 BO 109 118: MOVL STATUS, RO ; 1486 5] 
66 33 01 1 4 12$:  CMPL § CURRENT_LIBNUMBER, (R6) ; 1489 7] 
B \3 0107 BEQL 1 : : 1 
66 D5 00109 TSTL (R6) + 1491 ; ] 
9 19 91 B BLSS 13$ : 31 
7 DD 00100 PUSHL R7 + 1492 : 1 
0000v CF Qi Fe O10F CALLS #1, CLOSE_LIBRARY : 31 
5 p5 00114 138: TSTL CURRENT_ CIB BNUMBER + 1493 31 
12 19 O116 BLSS 14$ : 31 
14 AC DD 0011 PUSHL LIBN AME : 1496 - | 
10 AE 9F 0011B PUSHAB LIBRARYNAME : 31 
0000v CF 0 FB O1g CALLS #2, SWITCH_LIBNAME : 31 
0000° CF 04 88 001 BISB2 #4, PROMPT-FLAGS : 1497 31 
03 11 00128 BRB 15$ + 1493 31 
14 BC B4 0012A 14$: CLRW § @LIBNAME : 1500 31 
67 08 AE DO 0012D 15$: MOVL CURRENT_LIBINDEX, (R7) + 1501 31 
65 55 DO 00131 MOVL CURRENT-LIBNUMBER, (R6) : 1502 21 
50 01 DO 00134 168 MOVL #1, RO™ : 1505 31 
04 00137 RET ; 1506 3 | 
; Routine Size: 312 bytes, Routine Base: SCODE$ + 052E ; } 
s 1 
| 
= 1 
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04- Routine change_| -Sep- LBR.SRCJOUTPUTHLP.B32;1 mos (3 


the file name of that Library 
ROUTINE VALUE: 
True, if new Library found. 
False, if library unchanged. 


indices : REF BBLOCK, 
getcmddesc : REF BBLOCK; 


784 1507 1 XSBTTL ‘Routine change Lib’; 
785 1 ROUTINE change_lib (gefcmddesc, charpos, indices, Libname) = 
786 BEGIN 
787 1 
788 1 144 
re? ! FUNCTIONAL DESCRIPTION: 
791 1 i This routine changes the Library context currently in effect to 
79 1 } the Library specified by the command descriptor. It also removes 
et : the Library specification from the command string. 
795 1 i INPUTS: 
796 1 ‘ 
ad getcmddesc = address of descriptor containing the new Library name 
44 charpos = pointer to ‘‘a’’ preceeding Library name 
801 2 indices = address of data structure containing indices of 
M4 2 Libraries currently in use 
Hy $ Libname = address of descriptor for the user default Library name 
806 ; : OUTPUTS: 
43 3 getcmddesc = library specification is removed from string 
1 3 indices = if new Library successfully found, updated to 
3 : reflect Library that was specified by the 
H } command string 
; ! Libprompt = if new library successfully found, updated to 
3 i 
4 : 
4 ! 
4 ! 
4 
4 
4 
4 
4 
4 
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BIND 
5 last_libindex = indices Chli$l_lastindex], ! Index of last library examined 
; Last_libnumber = indices ChlLi$T_lastnumb); ! No. of Last Library examined, relative to all defa 
5 LOCAL 
5 current_libindex, ! Index of Library ores) being searched 
5 current_libnumber, ' Number of Library currently being searched 
5 deflib_acmode : BYTE ' Logical name table number 
34 5 librarystring : BBLOCK Cnam$c_maxrss], ' Default htorery name string 
35 5 Libraryname : BBLOCK Cdsc$c_s_bln], ' String descriptor for Library name 
36 5 name_end, ! End of @ string 
37 6 name_len, ' Length of @ string 
38 6 nomsg, ' Open_library message flag 
39 6 temp_end, ' Location of first °/" in command string 
840 6 user_libno; ! HLPSLIBRARY number 


PROPIPIPIPONIPOPIPINIPININIDNYPINYIDIPNINUININININPINIPININININININPYPINININPINIPNPNINY 
Si 
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; e ! 9? remove_terminator (.getcmddesc); ! Remove command terminator 

: 844 1 & IF (.charpos + 1) EQL ! If no file name 

; 845 1208 ribet gnecese Cdsc$w_length] + .getcmddesc Cdsc$a_pointer]) 

: ots 1298 THEN RETURN false; ! Then return false 

>; 848 1571 nomsg = true; ! Do not signal error if library can 
; 849 1326 Libraryname tdsc$a_pointer] = Peched 5 tty ! Initialize local descriptor 

: 529 1307 make_upper_case (.getcmddesc, .getcmddesc Ldsc$a_pointer]); ! Upper case command 

3 824 1575 name_len = .getcmddesc (Cdsc$w_length] + ! Calculate Length of @ to end of Li 
>; 85 1576 -getcmddesc Ldsc$a_pointer] - .charpos; 

; 854 1577 IF (name end = CHSFIND_CH (.name_len, psherpes. x’ ")) EQL 0 ! If no blank in command string 

; 855 1578 THEN hame_end = .getcmddesc Fasc$u_iengt J ! Then end is end of command 

; 856 1579 + .getcmddesc [dsc$a_pointer]; 

; 857 1580 IF (temp lend = CHSFIND_CH (.name_len, .charpos, %C'/')) NEQ 0 ! If '/* position is before blank po 
: 858 1581 THEN TF .temp_end LSS .name_end 

; 859 1388 HEN name_end = .temp_end; ! Then end is position of ‘/' 

: ne 138? name_len = .name_end - .charpos; ! Calculate length of @ string 

s o6¢ 1585 current_libnumber = -1; ! Init Library number 

; 86 1586 user _Libno = -1; ; . ! Init default Library searching 

; 864 1587 WHILE (tran next lib (Libraryname, deflib_acmode, user_libno) 

; 865 1588 3 true) 

; 866 1589 DO BEG 

; 867 1590 L 

; 868 1591 filename : BBLOCK Cdsc$c_s_bln], 

: 869 1236 filebuffer : VECTOR Cfilename_length, BYTE]; 

; 870 1593 3 

; 871 1594 ; filename = 0; 

3 687. 1595 filename Cdsc$a_pointer] = filebuffer; 

3 1h 1396 ; switch_libname Tlibraryname, filename); 

5 a7? 1208 ; current_libnumber = .current_libnumber + 1; ! Incr Libnumber 

: 877 1600 3 IF CHSEQL (.name_len - 1, . filename Cdsc$a_pointer], ! Is command a substring of the file 
; gre bt ; -name_len - 1, .charpos + 1, 0) 

; 880 1808 & THEN IF neon library (current_libindex, lLibraryname, .nomsg)) ! If library successfully opened 

; 881 1604 4 THEN BEGIN 

5 +43 1605 4 IF .last_libnumber GEQ external_libnumber ' If last Library not main Library 
; 88 1606 4 THEN Close_library (last_libindex); ! Then close it 

3 eee 1607 4 switch_lLibname (tiorarynene . Libname); ! Change Library name 

; 885 1608 4 last_lTbindex = .current_libindex; i Set Cibindex 

; 886 1609 4 last_libnumber = .current_libnumber; ' Set Libnumber 

3; 887 1610 4 getcmddesc Cdsc$w_length] = ! Remove @ string from command 

; 888 1611 4 ' etcngdese Cdsc w_length] - .mame_len; 

3 $88 1ol¢ 4 getcmddesc ([dsc$a_pointer] = 

: 890 1613 4 -getcmddesc Cdsc$a_pointer] + .name_len; 

; 891 1614 4 RETURN true; ! Return success 

3; 89 1615 ; END; 

3; 89 1916 

: 894 161 END; ! Library not found 

; 895 1618 

; 896 1619 ‘ P f 

3; 897 1620 ! If Library file name was not found in logical name tables, 
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! then assume that the file name is actually a full file spec 
' for a library that exists but is not a user-defined default 
library. Try to open that Library. 


Libraryname pesciu_ lengthy = .name_len = 1; 
Libraryname Ldsc$a_pointer] = .charpos + 1; 


IF NOT (open Library (current_libindex, Libraryname, .nomsg)) 
THEN RETURN false; 


IF .last_libnumber GEQ external_libnumber 

THEN Close_library (last_libindex); 
switch _libname (Libraryname .Libnames; 
last_libindex = .current_libindex; 
lLast_lLibnumber = <1; 


getcmddesc dsc$w_length] = .getcmddesc Cdsc$w_length] - .name_len; 
getcmddesc ([dsc$a_pointer] = .getcmddesc [dsc$a_pointer] + .name_len; 


RETURN true; 
END; 
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4,R5,R6,R7,R8,R9,R10,R11 
9E 00002 MOV 32 
ADDL3 #4, IN 

#8. I 
MOVL  GETCM 


sd TERMINATOR 


OMSG 
RYSTRING, LIBRARYNAME+4 


MAKE _UPPER_CASE 
§), R 

RSs 
é, NAME_LER, (R6) 
, NAME_END 


NAME _END 
?, NAME_LEN, (R6) 
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Initialize library name 


Try opening Library 
If unsuccessful then give up and s 


If last library not main Library 
Then close it 

change Libary name 

Set libindex 

Set lLibnumber 

Remove @ string from command 


Return success 
Of change_lib 
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¥042000 Routine thenge. Lin” ase: eae a SP i eee oe 28 voe 
1 D4 0006 CLRL sR P : 1 
1 b3 G és 4$: TSTL TEMP_END : : |] 
8 1 A BEQL 5 : : 1 
52 } pi 0 cMPL TEMP END, NAME_END + 1581 F , 
5 i 09 a0 1 MOVL_ TEMP_END, NAME_EN : 158 ; 1 
54 5 6 ¢ 74 5$ SUBL3 -R6, END, N : 158 :] 
5 01 CE 00078 MNEGL #1, CURRENT LIBNUMBER + 1585 : 1 
of 01 ce 078 MNEGL #1, USE LI NO : 1586 : ] 
FF AG SE Ove MOVAB =1(R4), + 1600 - 
SE DD 00082 6$: PUSHL SP + 1587 31 
08 AE OF O84 PUSHAB DEFLIB_ACMODE : 31 
44 AE oF 7 PUSH LIBRAR NAM : @| 
0000v CF 03 FB OO0BA CALLS #3, TRAN_NEXT_LIB : 31 
01 50 D1 O008F CMPL =e RO, #1 + 1588 31 
51 12 00092 BNEG 8$ : 71 
34 AE D4 00094 CLRL FILENAM + 1594 31 
38 = oAE OC AE 9E 00097 MOVAB FILEBUFFER, FILENAME+4 : 1595 3 1 
34 AE 9F 0009C PUSHAB FILENAM + 1596 71 
40 AE 9F OO09F PUSHAB LIBRARYNAME : 31 
CO00v CF 02 FB 000A CALLS #2, SWITCH _LIBNAME : 31 
58 06 000A INCL. CURRENT_LIBNUMBER + 1598 31 
01 Ab 38 =o 57 29 000A9 CMPC3”—s R7, Sr ICENAME 2. 1(R6) 3 1600 3 1 
D1 12 OOOAF BNEQ 6$ : 31 
59 DD 00081 PUSHL NOM : 1603 3 1 
40 AE 9F 000B3 PUSHAB LIBRARYNAME : 31 
10 AE 9F 000B6 PUSHAB CUR RENT_LIBINDEX : 31 
0000v CF 03 FB 000B9 CALLS #3, OPEN_LIBRARY : 31 
C1 50 €9 O00BE BLBC RO : 31 
FFFFFFFF © 8F 6A 01 000CT CMPL (R10), #=1 : 1605 31 
07 19 000¢8 BLSS 7$ : 31 
5B DD OOOCA PUSHL R11 : 1606 31 
0000v CF 01 FB 000CC CALLS #1, CLOSE_LIBRARY : 31 
10 AC DD 00001 7$: PUSHL LIBNAME : 1607 31 
40 AE 9F 000D4 PUSHAB LIBRA RYNAME : 31 
0000v CF 02 FB 00007 CALLS WITCH LIBNAME : 71 
6B 08 AE 00 000DC MOVL CORRENT CIBINDEX. (R11) : 1608 31 
6A 58 00 O00E0 MOVL § CURRENT LIBNUMBER, (R10) : 1609 71 
38 11 OOOE BRB 10$ + 1611 :1 
3c OA 57 80 O0E5 8$: MOVW 7, LIBRARYNAME + 1626 31 
40 AE 01 Ab SE 000E9 MOVAB 1cR6) CT BRARYHAME +4 : 1687 31 
59 DD OOOEF PUSHL MSG : 1629 31 
40 AE 9F OOOF PUSHAB YtBR NAME ; 2 
10 AF OF OOF PUSHAB "5 RENT at ANREX : 1 
0000v CF Q FB 6 CALLS ; 3 
2D 0 £9 000FB BLBC : :1 
FFFFFFFF © 8F 6A D1 OO0FE CMPL ato). ae > 1632 31 
7 19 001 BLSS © 9$ ; :1 
B OD ot 7 PUSHL R11 : 1633 
0000v CF 1 FB 001 CALLS #1, CLOSE_LIBRARY ; 
10 AC bb 01 . 9$: PUSHL NAME > 1634 
40 AE F 0011 PUSHAB LIBRARYNAME ; 
0000v CF 0 FB 114 CALLS #2, SWITCH LIBNAME ; 
6B 08 AE DO 00119 MOVL URRENT LIBINDEX, (R11) > 1635 
6A gi CE 0011 MNEGL #1, (R10) > 1636 
65 4 A iF 10$:  SUBW2 NAME_LEN, (R5) > 1637 
04 AS 54 C0 001 ADDL2 NAME-LEN, 4(R5) > 1638 
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1 ZSBITL ‘Routine switch_Libname'; 
pouT ane switch_libname™ (newname, oldname) = 


44 


FUNCTIONAL DESCRIPTION: 


INPUTS: 


newname = 
oldname 


oldname 


address of 


ROUTINE VALUE: 


i 
i 
i 
i 
i 
i 
i 
i 
OUTPUTS: 
i 
i 
i 
i 
i 
i 
i 


oldname 


LOC 
_ er 


Always true. 


: REF BBLOCK, 
: REF BBLOCK: 


BBLOCK Cnam$c_maxrss], 


: BBLOCK ECrnam$c =maxrssd, ! 
Libfab: BBLOCK Cfab$c_ 


Libnam: BBLOCK Cnam$c_ “bind: ! 


SNAM_INIT( 


SFAB_INIT( 


NAM=Libnam, 
RSA=rsabuf, 
RSS=nam$c_maxrss, 
ESA=esabuf, 
ESS=nam$c _maxrss); 


FAB=Libfab, 

FOP=NAM, 

FNA=.newname dsc$a_ pointers. 
panerepenene dsc$w_ Length), 
NAM=Libnam); 


PARSE (FAB=Libfab); 


Ldname(dsc$w_length] = 


— true; 


5 
E 
; newname 
: 
5 
5 
5 
5 
a 
is 


$ 
fr) 
CHSMOVE (. LibnamCnam$b _namel, . Libnam(ham$l_name], .oldnameLdsc$a_pointer]); 
R 
END 
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e 
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93:99:28 


a descriptor for 
address of a descriptor for 


updated to specify the name 


- Libnam[nam$b_name); 


AX-11 Bliss-32 V4.0-742 
LBR.SRCJOUTPUTHLP.B32; 1 


This routine inserts a new Libname into the old descriptor. 


the new Library file name 
the old Library file name 


of the new Library 


! buffer for resultant string 
buffer for expanded string 
' temporary FA 

temporary NAM block 


! Of switch _lLibname 


~-EXTRN SYSSPARSE 
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-Sep-1984 


Baeeon 1984 13s i405 


003C 00000 SWITCH ao 


L PUTHELP Prompting and Library searching help function 
Lor Bur pting a 9 p fu 


Ax-11 a) 
Routine switch libnam e U 


\iss 2 V4. 
LBR.SRCJOUTPUTHLP. 


SEs FDSO.-— CE. «9E:0000 Sous (£2585 06 -RS 
0060 8F 00 6E 66 3f 0007 Aovag eet (SP 5. #96, SRMS_PTR 
E 6002 i 0 Soor MOV ’ 4578, SRMS_PTR 
: & 1 BE 00014 MNEGB S$ _PTRI2 
4 AE FFOO cp E 00018 MOVAB RSAB ist shag PTR+4 
a a 
0050 8F 00 6E ‘ 06 2c 33 moves i (SP), #0; #80, SRMS_PTR 
60 AE 5083 BF BO 00031 MOV Herts $RMS_PTR 
4 AE 01000000 8F p 0037 MOVL 467 216 praeee PTR+4 
6 AE <2 O3F MOV 
7F oA 02 90 0043 MOVB sRue-p +31 
0088 ce 6E 4 004 MOVAB i a SRM _PTR+40 
6 AC D 0046 MOVL §NEWN RO ~ 
oosc «CE 4 Ad 00 0005 MOVL  4(RO), $RMS_PTR+44 
0094 CE 60 90 00056 MOVE (RO), S$RMS_PTR+52 
60 AE 9F 00058 PUSHAB (TOF 
000000006 00 01 FB OO05E CALLS #1, SYSSPARSE 
50 08 AC DO 0006 OVL OLON E, RO 
60 38 «AE «(9B 00069 MOV2BW LIBNAM+59, (RO) 
51 38 46AE 9A 0006D MOVZBL LIBNAM+59, R1 
04 80 4C BE 51 28 00071 MOVC3 R1, @LIBNAM+76, @4(RO) 
50 01 D0 00077 MOVL #1, 
04 0007A RET 


; Routine Size: 123 bytes, Routine Base: SCODE$S + 0794 
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1686 


1688 


; 1690 
; 1691 


; 1693 
; 1694 
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~M 


ate 


True, if user default library is found. 
{t Libraries left, i.e., at end of tables. 


3 


False, if no more user defau 


So 
So 
a] 


974 1695 1 XZSBITL ‘Routine tran_next_lib’; 
975 1698 1 ROUTINE tran_next_liB (Libname, deflibacmode, userlibno) = 
97 9 GIN 
97 a8 
978 9 '+4 
444 9 FUNCTIONAL DESCRIPTION: 
981 Ss i This routine returns the value true if a default 
98 0 ' Library if found and false if not. If a library is found, 
ti Be the Library file name is returned in the descriptor Libname. 
985 i INPUTS: 
986 $9 } 
+ 14 4 Libname = address of a descriptor to return the Library name in 
989 i deflibacmode = address of a longword a the access mode of the 
4 last logical name table searche 
238 i userlibno = address of a longword containg the number of the last 
99 : library found in the last logical name table. If the 
994 : number is -1, then start searching the logical name 
oes tables all over again. 
997 i OUTPUTS: 
+444 Libname, deflibacmode, userlibno : as described above 
! ROUTINE VALUE: 
i 
: 
' 
ie 


S 


MAP 
help_flags : BITVECTOR, 
Libname : REF BBLOCK; 


AUS WN (OD ONAVUVES WO OONOUSWN—O 


WIAA AAI AION NDONPONINPINONIDY 2 OS Oe 


OWN 
hlplibnam : COUNTEDSTR : 


TRI ("HLPSLIBRARY") ! Initial Library logical name 
Libnamefao : COUNTEDSTR 


G I 
NG ("HLPSLIBRARY_ UW"); ! FAO descriptor for general Library logical name 
LOC 


SCOOONAOULWN—OOON 


AL 
deflibdsbmsk : VECTOR (4,BYTE) 
deflibnam : VECTOR Cmaxliblen,BYTE), 
Cort vodese : BBLOCK Cdsc$c_s_bln], 
status; 


IF ..userlibno LSS 0 ! If starting search at beginning ; 
THEN BEGIN ' Then initialize access mode and Li 


Logical name table access modes 
Library logical name buffer 
Library logical name descriptor 
Status of logical name translation 


SN NNN NNN NNN NSIS OO 


Dt ek et et eh be) 


—OOONOUS WN —OOONn 


WARIPOPOMOPONOPONINID 2 2 OO Oe 


-deflibacmode = 0; 
-userlibno = 0; 


ee ee ee ee ee ee ee ee Lee SS 
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BIND 
| maxliblen = ZCHARCOUNT("HLPSLIBRARY_999'); ! Max Lib logical name length 


ee eee ee ee ee ee i eee 


ooo 
OOONOVUEWN— 
ANN 
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YO0=000 Rout ine Pran next. Lib . 3 12286871382 95:95:28 {tBR. SRC OUTPUTHLP.B32; 7 a 
; 1031 17 deflibdesc Cdsc$w_length] = maxliblen; ! Initialize logical name descriptor 
3 19 Q if § deflibdesc Egsc$y-tengtn = deflibnam; ’ . 
3; 10 1755 IF ..userlibno EQL 0 ! If first jop*eat name in table | 
; 1035 17 § THEN BEGIN ! Then special case, do not use FAO | 
; 10 72 deflibdesc Cdscdu. lengthd = pBiot tenon C0]; 
5 10 1758 CHSMOVE (.deflibdesc Cdsc$w_length], hlplibnam + 1, deflibnam); 
; 1038 1759 END 
; 1039 1760 
> 1040 1761 ELSE BEGIN ! Else use FAO to combine Logical na} 
; 1041 1706 def libdesc Cds¢Su_len th) = .libnamefao [0]; | 
3 1366 176 CHSMOVE (.deflibdesc Ldsc$w_length], Libnamefao + 1, deflibnam); 
3: 104 1764 4 IF NOT SFAO (deflibdesc, deflibdesc, deflibdesc, ..userlibno) 
3 1044 1765 THEN RETURN false; 
3: 1045 1198 ND; 
3: 1046 176 
3: 1047 1768 IF .help ty C..deflibacmode + 1] NEQ 0 ! If searching of current logical na 
: 1048 1769 THEN BEGI ! Then translate logical name for th 
: 1049 1770 deflibdsbmsk = %X'00060503'; 
; 1050 1771 Libname Cdsc$w_length] = nam$c_maxrss; 
: 1051 Pp 1778 status = STRNLOG (LOGNAM = deflibdesc, 
3 1926 P 177 DSBMSK = .deflibdsbmsk C..deflibacmode], 
; 105 P 1774 ; RSLLEN = .Libname 
3 1054 1775 RSLBUF = .Libname); 
>; 1055 1776 4 IF .status AND (.status NEQ $S$_NOTRAN) ! If logical name is successfully tr 
: 1056 1777 4 THEN BEGIN 
: 1057 1778 4 -userlibno = ..userlibno + 1; ' Then increment Lib no. for next se 
; 1058 1779 4 RETURN true; ! And return true 
: 1059 1780 3 END; 
: 1060 1781 END; 
3: 1061 17s 
: 1066 178 ' 
; 106 1784 ! If current logical name table not enabled or logical name unsuccessfully 
3: 1064 1785 ! translated, then recursively call this routine to search next table. 
3; 1065 1786 ! 
: 1066 1787 
3; 1067 1788 IF (.deflibacmode = ..deflibacmode + 1) GTR 2 ! Increment access mode 
: 1068 1789 THEN RETURN false; ! If out of tables, then return fals 
; 1069 1790 -userlibno = 0; é ! Reset Lib no. to start of table 
; tA 13) § RETURN tran_next_lib (.libname, .deflibacmode, .userlibno); ! Make recursive call 
: 1072 1798 1 END; ! Of tran_next_lib 
-PSECT SOWNS,NOEXE,2 
0B 00038 HLPLIBNAM: ; | 
59 52 41 52 42 49 4C 246 50 4C 48 90039 “ASCII \HLPSLIBRARY\ ; 
OF 0044 i. Som e>s 15 
57 55 21 SF 59 52 41 52 42 49 4C€ 24 50 4C 48 00045 eASCII \HLPSLIBRARY_!UW\ 3 


MAXLIBLEN= 15 
™ ~-EXTRN SYSS$FAO, SYSSTRNLOG 


15 | 
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y002000 Routine Pran_next. tid , . 1 ~Sep-19 4 95:95:08 LOR. SREIOUTPUTHLP O32; rest a 

-PSECT $CODES$,NOWRT,2 | : 

QOFC 00000 TRAN NEXT LIB: | ; 

QORD Save R2,R3,R4,R5,R6,R7 : 1696 | 

57 0000' CF 9€ 0000 MOV HLPLIBNAM, R7 : | ; 

SE 1c C 00 SUBL2 #28 : | : 

56 0¢ AC DO O000A MOVL  USERLIBNO, R6 : 1746 | : 

66 D5 0000 TSTL = (R6) : ; 

05 18 0001 Bced 61S ee 

08 BC D4 001 CLRL § @DEFLIBACMODE + 1748 : 

66 D4 0001 CLRL (RG) + 1749 ; 

04 AE OF 80 90017 1$: MOVW #15, DEFLIBDESC : 1738 ; 

08 AE Oc AE E 018 MOVAB DEFLIBNAM, DEFLIBDESC+4 : 175 ; 

6 D 900 0 TSTL (RO) : 1755 ; 

D 12 00022 BNEQ 2$ : ; 

046 =A 67 98 00024 MOVZBW HLPLIBNAM, DEFLIBDESC : 1757 ; 

Oc AE 01 A 04 AE 28 00028 OVC3 DEFLIBDESC, HLPLIBNAM+1, DEFLIBNAM : 1758 ; 

21 11 900 f BRB 3$ : 1755 ; 

04 AE OC A? 9B 00031 2$: MOVZBW LIBNAMEFAO, DEFLIBDESC ; 1762 : 

OC AE OD A? 04 AE 28 00036 MOVC3 DEFLIBDESC, LIBNAMEFAO+1, DEFLIBNAM : 176 ; 

66 DD 00030 PUSHL (R6) 3: 1764 : 

08 AE 9F 0003F PUSHAB DEFLIBDESC ; : 

OC AE OF 00042 PUSHAB DEFLIBDESC : : 

10 AE 9F 0004 PUSHAB DEFLIBDESC ; : 

000000006 00 04 FB 00048 CALLS #4, SYSSFAO ; : 

60 50 £9 0004F BLBC ~=._-«aRO,._- 5$ : ; 

50 08 BC DO 00052 3: MOVL  § @DEFLIBACMODE, RO : 1768 : 

52 01 Ad 9E 00056 MOVAB 1(RO), R2 : ; 

51 FB AT 01 52 EF O005A EXTZV R2, #1, HELP_FLAGS, R1 : : 

34 13 00060 BEQL 4 : ; 

6E 00060503 BF DO 00062 MOVL #394499, DEFLIBDSBMSK : 1770 ; 

04 BC FF 8F 9B 00069 MOVZBW #255, @LIBNAM : 1771 F 

7E 6E40 9A 0006E MOVZBL DEFLIBDSBMSKCROJ, -(SP) : 1775 ; 

7E 7C 00072 CLRQ -=(SP) : ; 

04 AC DD 00074 PUSHL LIBNAME ; ; 

04 AC DD 00077 PUSHL LIBNAME ; ; 

18 AE 9F OOO7A PUSHAB DEFLIBDESC ; F 

000000006 00 06 FB 0007D CALLS #6, SYS$TRNLOG : ; 

OF 50 £9 00084 BLSC US, 4$ : 1776 ; 

00000629 = 8F 50 D1 00087 CMPL STATUS, #1577 : ; 

06 13 O008E BEQL = s4$ : ; 

66 D6 00090 INCL (RO) : 1778 ; 

50 01 00 00098 MOVL #1, RO : 1779 ; 

04 9009 RET : ; 

50 08 01 C1 0009 4$: ADDL3 #1, @DEFLIBACHODE, RO > 1788 ; 

08 BC 50 DO 00098 MOVL RO. @DEFLIBACMODE : ; 

50 D1 0009F CMPL RO. #2 ; : 

OE 14 ON0A2 BGTR 5$ : ; 

66 D4 OO0A4 CLRL —- (R6) : 1790 ; 

56 DD 00A6 PUSHL 6 : 1791 ; 

7E 04 ac 7D OO0A8 MOVO —LIBNAME . -(SP) : | ; 

FFGF CF 03 FB OOOAC CALLS #3, TRAN_NEXT_LIB : ; 

04 00081 RET : ; 

50 D4 00082 5S: CLRL = RO > 1793 ; 

04 00084 RET ; : 


; Routine Size: 181 bytes, Routine Base: S$CODE$ + O80F 
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yOe=000 Routine Spen_\ibrery” . . 1328 08- 1982 03:95:08 LOR. SREJOUTPUTHLP 63224 . (9) | 
> 1074 1794 1 ZSBITL ‘Routine open_library'; 
; 1075 1795 1 ROUTINE open_library (Libindex, Libname, nomsgflag) = | 
3 1976 1738 BEGIN 
; 107 179 
: 1078 1798 2 !+s | 
: 1079 1799 ' FUNCTIONAL DESCRIPTION: 
; 1080 1390 : 
; 1 1303 Open the Library with the specified name and return its index. | 
; 1083 1808 ' INPUTS: 
: 1084 1804 2 i : | 
: 1382 1902 } Libindex = address of longword to contain index of opened Library 
; H's 14 yt Libname = address of descriptor for library name 
; 34 13%) } nomsgflag = flag that is true if open errors should not be signalled 
3; 1091 1811 ! OUTPUTS: 
3 1996 a ‘ 
: 109 1813 2! Libindex : as described above 
: 1094 1814 : 
; 1095 1815 ' ROUTINE VALUE: 
>; 1096 1816 : 
: 1097 1817 ! True, if library successfully opened. 
: 1098 1818 ! False, if unsuccessful. 
3; 1099 1819 : 
; 1100 1820 !=< 
3 1101 1821 
: 1308 18s¢ MAP 
3: 110 182 § Libname : REF BBLOCK; 
: 1104 ieee 
3 1105 1825 2 EXTERNAL : 
3 1199 1336 2 Lbr$gl_rmsstv : ADDRESSING_MODE (GENERAL); ! RMS STV from Librarian 
3; 1108 1828 7 LOCAL 
3: 1109 136? filnamdesc : BBLOCK Cdsc$c_s_bln], ! Library name descriptor 
3; 1110 1830 help_defname : BBLOCK Cdsc$c_s_bln] ' Default filename descriptor 
3 1111 1831 helpfilename : BBLOCK nam$c_maxrssi, ' Resultant file name 
iE 1838 Sinies, E tee gh lisence 
: e e ! eo rar 
3 1114 1834 namblk. BBLOCK Cnam$c_blnJ, : ubrary name block 
3 1115 1835 status; 
3 RY 1836 
3111 7 HET SNAM_INIT (NAM = namblk, ! Initialize the NAM block | 
3; 1118 P 1838 RSS = nam$c_maxrss, | 
3 1119 P 1839 RSA = helpfilename, 
3 1120 P 1840 ESS = nam$c_maxrss 
: 1121 1841 ESA = helpfilename); | 
: 1138 1803 help_func = lbr$c_read; ! Will be reading the Library 
5 1124 1844 help_type = Lbr$c~typ_hlp: i Library is of help type | 
3: 1125 1845 
: 1156 1366 : : ae 
3 i , 1848 : Call Librarian to initialize control. Stop if error. | 
: 1129 184 
$ 1133 1850 IF NOT (status = Lbr$ini_control (.libindex, help_func, help_type, namblk)) | 
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1Oe=000 Routine Seen. rere” ° . 14-Sep eats 95:95:08 LBR.SRCJOUTPUTHLP. B32; . 3 
; 1131 1851 THEN 
3 11 ¢ 1 ¢ BEGIN 
3 4) 1 SIGNAL (.statu 
3; (11 1854 RETURN Status sok sts$m_inhib_msg; 
; 1135 1855 END; 
3 11 1328 
3: 1137 185 ' 
; 1138 1858 ' Call Librarian to open library. Stop if error should be flagged. 
: }20 i860 3 
: 1141 1861 help_defname Cdsc$w_length] = .syshelp (0); ! Initialize default library directory and type 
5 1136 1806 help- defname EGS §u- “pointer” = syshelp : ii . . 8 
o | 
3 1144 1864 IF NOT (status = LbrSopen (.Libindex, .libname, 0, help_defname)) 
> 1145 1865 AND NOT .nomsgflag 
3 1146 1398 THEN BEGIN 
3 114 186 IF (filnamdesc Cdsc$w_length] = -hamblk Crosse. esl) = 0 
3 1133 1388 ; THEN filnamdesc Cdsc$a “pointer] = -namblk Cham$l_esal 
; 1150 1870 4 filnamdesc pdscéu. Length] _= .libname Cdsc$w_lengthj; 
: 133) 137) 4 1 ma dsc$a_pointer] = .Libname Cdsc$a_po nter]; 
; 1188 1898 ; SIGNAL (snes _openin OR Bans meen facility OR sts$k yews 
3 1154 1874 amdesc, .status, a tbrSgt _rmsstv) 
3; 1155 1875 3 status = shr$ _openin OR *hLpsc., facility OR sts$k_error oR sts$m_inhib_msg; 
; 1156 1876 § END; 
3 1157 1877 
3; 1158 1878 § RETURN .status; 
3: 1159 1879 
; 1160 1880 1 END; '0f open_library 
-EXTRN LBRSGL_RMSSTV 
007C 00000 OPEN_LIBRARY: 
«WORD Save R2,R3,R4,R5,R6 3; 1795 
56 000000006 00 9E 00002 MOVAB L BSS IGNAL oré 3 
FE88 CE 9€E 00009 MOVAB 76(SP), : 
0060 =«aBF 00 6E 08 re 2c Ber mMOVC5 #0, (SP), 70, #96, SRMS_PTR 3: 1841 
08 AE 6002 8F B80 00017 geAsie $RMS abt 3 
OA AE 01 8E 0001D MNEGB #1, $RMS 3 
0 AE 68 AE 9E BS 1 MOVAB nc RMS_PTR+4 : 
AE 0 E 6 MNEGB 3 
14 AE 68 AE O02A MOVAB (Pr ICERAME SRMS_PTR+12 $ 
AE 01 00 O002F MOVL i. HELP_FUNC : 1843 
6E 03 OD $3 3 OVL paltel P-TYPE > 1844 
08 AE OF PUSHAB : 1850 
4 AE OF 0 PUSHAB HELP_ TYPE 3 
C AE 9F 0003C PUSHAB HELP -FUNC 3 
4 ac odd F PUSHL LIBINDEX 3 
000000006 99 04 F rt: CALLS Te LBRSINI_CONTROL 3 
D 4 MOVL RO, em y ; 
0€ E 4C BLBS ST TATU ; 
DD 4F PUSHL STA ys" ; 1853 
66 01 FB 51 CALLS #1, LIBSSIGNAL : 


— 
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1007000 Routine Seon. tibrory” ° . oaee 198d 95:95:08 LBR.SRCJOUTPUTHLP.B32; 1 . (9) 
50 53 10000000 = &F sf a3 BISL3 4268435456, STATUS, RO : 1854 
FO AD 990 ' CF 9B §2 1$: MOVZBW SYSHELP, HELP_DEFNAME + 1861 
F4 AD 000' CF 9E 0006 MOVAB. SYSHELP+1, HECP_DEFNAME+4 + 1862 
FO AD 9F 0006 PUSHAB HELP_DEFNAME > 1864 
7E D4 0006 CLRL = = (SPY 
52 08 AC D0 006 MOVL LIBNAME, R2 
52 DD 000 PUSHL 
04 AC DD 0007 PUSHL INDE 
000000006 9 94 FB 0007 CALLS #4, LBRSOPEN 
9 D0 0007 VL STA 
8 53 €£ 99 STATUS, 4 
4 o¢ AC 3 NOMSGFLAG, 4$ 
F8 AD 1 AE 98 008 NAMBLK+11, FILNAMDESC 
FC AD 14 AE 00 0008 MOVL § NAMBLK+12, FILNAMDESC+4 1868 
09 11 0009 BRB 3$ 
F8 AD 6¢ 80 0096 2$ MOVW (R2), FILNAMDESC 1870 
FC AD 04 A2 00 0009 MOVL  4(R25, FILNAMDESC+4 1871 
000000006 99 DD OOOSF 3$ PUSHL LBRSGL_RMSSTV 1874 
DD OOOA PUSHL STATUS 
F8 AD 9F OOOA PUSHAB FILNAMDESC 1873 
1 DD OOOA PUSHL #1 
0076109A 8F DD OOOA PUSHL #7737498 
66 05 FB 008 CALLS #5 LIBSSIGNAL 
53 1076109A i DO 000B MOVL #276172954, STATUS 1875 
50 3 pO O00BC 4$ MOVL = STATUS, RO 1878 
04 000BF R 1880 
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000000006 00 
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tine setup_keys eats 95:95:28 ABR SREIOUTPUTHY P 63204 sie 
} ZSBTTL ‘Routine setup_keys' 


ROUTINE setup_keys (getcnddesc, keydescs, truekeys) = 


+4 
ES 
2 


ss 
OOOCCOONOOO0O 


oO 
SEARS OS Sa avee 


44 
FUNCTIONAL DESCRIPTION: 


This routine divides the descriptor for the Line of keys into 
individual descriptors for the individual keys. 


INPUTS: 
getcmddesc 


address of descriptor for the set of keys currently being 
processed 


keydescs address of vector of key descriptors to be returned 


address of longword to contain the number of keys found 


truekeys 
OUTPUTS: 


keydescs, turekeys : as described above 
ROUTINE VALUE: 


MAP 
truekeys : REF VECTOR C,BYTE), 
etcmddesc : REF BBLOCK, 
eydescs : REF VECTOR C,BYTE); 


LOCAL 


paren, Pointer to a left parenthesis 


POPIRONININONONONONONOA PONeTuronoforfnofpofnoron POPIPIPIPOPUPONINYPPONPoPongNnynonyd 
x x WWM NAIWIUIRIRINNININININININD 3 2 SS SS 00 
SPRUE UNM“ COWDNOUE WN OOO NOME WNW SODS 
ee eS S| 


Be Oe we Be Os Se Se Se Se SESS Ss Be BF Se Be Se BFFs Se Se Be Be FF TH Ss Ge Be Se Ge Ss Be Ge Oe Ge FF SS Ss Se SF Oe FOF Se SESS SF Os Se OHSS SESE Se Ss Sees 


: 
5 
: 


' 
parn_begin, i Pointer to beginning of current key 
parm_en ! Pointer to end of current key 
next_qual, ! Pointer to next qualifier 
! Pointer to end of keys 
3 paren = ZASCII '('; ! Init paren ptr 
3 CHSFILL (0, dsc$c_s_bln * hlp$Sc_maxkeys, .keydescs); ! Clear key descriptors 
3 9 ! 
38 9 ! Convert command line to upper case. Then find the start of the help 
£5 3 } keys, and fill in descriptors for them. 
41 9 : 
4&2 96 make_upper_case (.getcmddesc, .getcmddesc Cdsc$a_pointer]); ' Convert command Line to upper case 
43 961 arm_end = .getcmddesc [dsc$a_pointer]; ! Initialize pointers 
44 9 ¢ ine_end = .getcmddesc ([dsc$a_pointer] + -optcaddesc Cdsc$w_length); 
45 9 next_qual = CHSFIND_CH (.getcmddesc [dsc$w_length 
“8 3 : -getcmddesc dsc$a-pointerd, ZASCII '/'); 
48 966 INCRU Level FROM 0 TO hlp$c_maxkeys - 1 ' Loop to search for keys 
} 2 i DO BEGIN 
51 969 DO BEGIN ! Find first key that doesn't start 


——— a 
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y0c=000 Routine Retup_keys . ' , 1 ~Sep-19 4 95:95:08 LOR. SREIOUTPUTHLP 632; . (11) 
: 125 1970 5 IF (parm begin = CHSFIND_NOT_CH (.Line_end = .parm_end ! Find start of ke 
3 4 es 1971 4 . “  “,parm_end, ZASCLiN’ 'T) EOL 0 . 
3 : ee 13%6 ? THEN parm_begin = .line_end; ! Set right if none found 
; 1256 1974 4 IF .next qual NEQ 0 ! If there is a qualifier 
; 1257 1975 4 AND “Bere begin GEQU .next_qual ! and qualifier is closer 
; 1258 1376 5 THEN BEGIN 
3; 1259 1977 5 parm_begin = .next_qual; ' then pick up the qualifier 
: 1260 1978 5 next_qual = CHSFIND_CH (.Line_end - -parm_begin ~ 1, ! and find the next one 
3 1261 1979 5 -parm_Begin + 1, ZASCII '/'); 
: 1565 198), is 
>; 1264 1986 5 IF (parm_end = CHSFIND_CH (.Line_end - “pore begin ! Find end of key 
3 1265 1983 4 .parm_begin, %ASCII © 'S) EQL 0 
3; 1266 1984 4 THEN parm_end = .line_end; 
3 1267 1985 4 
3; 1268 1986 4 IF .next_qual NEQ 0 ! If a qualifier on Line 
3 1269 1987 4 D .parm_end GTRU .next_qual ! and qualifier is closer 
3 ist? P+: : THEN parm_end = .next_qual; ! then it marks end of current param 
3 1272 1990 4 END ! Of until loop 
: 1sf? 1991 4 
3 1274 16 4 UNTIL (.parm_end = .parm_begin EQL 0 ! No more keys 
; 1275 1993 3 OR CHSNEQ (1, .parm_begin, 1, paren)); ! or, key that starts with non-( 
; 1276 1994 3 
3; 1277 1995 3! 
3; 1278 1996 3 ! Fill in string descriptor 
: 1279 1997 3! 
3 1280 1998 3 
3; 1281 1999 4 BEGIN 
; ieee 2000 4 
3 les 2001 4 D 
; 1gee S008 2 curkeydesc = keydescs Cdsc$c_s_bln * .level] : BBLOCK; ! Descriptro for current key 
>; 1286 2004 4 IF ceurhereree Cdsc$w_length] = .parm_end - .parm_begin) EQL 0 ! If key Length is zero 
: 1287 2005 5 THEN BEGIN 
3; 1288 2006 5 IF .level EQL 0 ! And level agrees that really no mo 
3; 1289 2007 5 THEN prompt_flags = .prompt_flags OR hcf$m_stay; ! Then set prompt flag 
: 1290 2008 5 pryekeys CO] = .level; ' Set number of keys 
: 1291 2009 5 EXITLOOP; ! And exit 
; 1336 2010 4 END; ‘ 
: 129 2011 4 curkeydesc tdsc$a_pointer) = .parm_begin; 'Set pointer to start of key 
3 1294 soig 3 END; 
3 1295 $3! END; 'Of INCRU Loop 
3 1296 014 
3: 1297 2015 RETURN true 
3; 1298 2016 
3; 1299 2017 1 END; 'Of setup_keys 
OOFC 00000 SETUP_KEYS: 
57 se bo 0000 MOVL #40, PAREN ; 1336 
0050—=s BF 00 6E 0 2C 0000 MOVCS #0, (SP), #0, #80, @KEYDESCS s 1% 
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ybe=000 Routine Zetup.keys : . . 12-808- 1382 95:95:09 LBR.SRCJOUTPUTHLP.B32; age 445 
8 BC C : : 
53 Og AC 00 $8 MOVL GE ICHODESC. R3 ; 1960 ‘ 
4 A3 DD 0001 PUSHL  4(R3) : : 
53 DD 0001 PUSHL R3 : : 
0000v CF 0 FB 1 CALLS #2, _MAKE_UPPER_CASE : : 
5 046 =A p 1 MOVL  4(R3), PARM_END : 1961 ; 
63 3¢ 000 MOVZWL (R3), LINE_END + 1962 ; 
5 04 A g6 90 ADDL2 4(R35, LINE_END : : 
04 83 6 F 3a 000 LOCC «6: #47, (R35), 34(R3) + 1963 : 
2 12 0002C BNEQ 1$ : ; 
1 D4 000 CLRL ss R21 : F 
56 51 D0 99 1$ MOVL 1, NEXT_QUAL : : 
54 D4 CLRL_ LEVEL : 1970 ; 
50 52 55 G3 0035 2$ SUBL3 PARM_END, LINE_END, RO : : 
65 50 20 : 0039 SKPC = #32, RO, (PARM_END) : : 
02 12 00030 BNEQ 3$ : : 
51 04 0003F CLRL sR : ; 
53 51 bg 99041 3$ MOVL R1, PARM_BEGIN : : 
03 12 00044 BNEQ  4$ : 1971 F 
53 52 DO 00046 MOVL §LINE_END, PARM_BEGIN : 1972 : 
56 DS 00049 4$: TSTL NEXTTQUAL : 1974 F 
1A 13 90048 BEQL $ : : 
56 53 p17 00040 CMPL §_ PARM_BEGIN, NEXT_QUAL + 1975 F 
15 1 00050 BLSSU 6$ : : 
53 56 D0 00052 MOVL. NEXT_QUAL, PARM_BEGIN : 1977 : 
50 52 53 ¢3 00055 SUBL3. PARM BEGIN, LINE_END, RO : 1978 F 
50 7 00059 DECL 8 : ; 
01 «AB 50 2F 3A 00058 LOCC #47, RO, 1(PARM_BEGIN) : ; 
02 12 00060 BNEQ 5$ : : 
51 D4 00062 CLRL : : 
56 51 b9 00064 5$: MOVL_ 1, NEXT_QUAL : : 
50 52 53 g 00067 6$: SUBL3 PARM_BEGIN, LINE_END, RO : 1982 ; 
63 50 20 3A 00068 LOCC #32,7RO, (PARM_BEGINS : ; 
02 12 0006F BNEQ : ; 
51 04 00071 CLRL sR ; ; 
55 51 DO 00073 7$: MOVL §R1, PARM_END : ; 
93 12 00076 BNEQ 8$ > 1983 : 
55 52 00 00078 MOVL §_LINE_END, PARM_END : 1984 : 
56 05 00078 8$: TSTL  NEXTIQUAL : 1986 : 
08 13 0007D BEQL : 3 
56 55 D1 0007F CMPL § PARM_END, NEXT_QUAL : 1987 : 
0 18 0082 BLEQU 9$ F 3 
55 36 DO 00084 MOVL § NEXT_QUAL, PARM_END : 1988 : 
53 ; D4 9087 9$: CMPL § PARMEND, PARM_BEGIN : 1992 : 
3 3 A BEQL $ : : 
57 63 91 0008C CMPB © (PARM_BEGIN), PAREN : 1993 3 
AS 13 O008F BEQL : 3 
50 08 BC44 4; 091 10$:  MOVAQ a@KEYDESCSCLEVEL], RO : 2002 : 
51 55 53 c3 00096 SUBL3 PARM BEGIN, PARM_END, R1 : 2004 : 
60 51 BO O009A MOVW = R17, TRO) : 
51 D 9 9D TSTL : 
OF 1 OF BNEQ 12$ ; 
4 0 9 Al TSTL LEVEL 3 2006 
05 1 a BNEQ : 
0000" CF 0¢ § OOA BISB2 #2, PROMPT FLAGS : 2007 
0c Bc 4 SOA 11$:  MOVB LEVEL, aTROEKEYS : 200 
OE 11 OOOAE BRB $ ; 200 
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Routine call_lbrhelp 14- ~Sep- LBR.SRCJOUTPUTHLP.B32;1 
ZSBITL ‘Routine call_lbrhelp'; 5 
pot ine call_lbrhelp (helplibindex, cutputwidth, printdata, keydescs) = 


nm 


SSF EWAN wi 
FUN — SO ODNAOUE WN CO OONOAUES WN O 


oO 
* 
ww 


PAA AAAI SS 
SOOWDNAUSWN —OOOND 


oo 
nO 
—_ 


FUNCTIONAL DESCRIPTION: 


This routine calls the Librarian function to extract lielp from 
a@ particular help Library. 


ROUTINE VALUE: 
Status of call for help. 


i 

i 

i 

INPUTS: 

helplibindex = address of longword containing help Library index 
outputwidth = address of longword containing width of output Line 
i printdata = address of data structure containg information for 
the output driver 

keydescs = address of vector of individual descriptors for each keyword 
OUTPUTS: 

None. 

' 

' 

! 

' 

le 


| 
} 


keydes 
context Cctx$v _outputh(pJ = falSe; 


MAP 
keydescs : REF VECTOR C,BYTE); 
LOCAL 
status: BBLOCK CLONG); 
EXTERNA 
tbr$gl. control : REF BBLOCK; ! Pointer to current Library control block 
D 
context = .lbr$gl_control Clbr$l_ctxptr] : BBLOCK; 
' 
! Set this bit to make LBRSGET_HELP han ls the hetp on help case correctly. 
This bit is not universally Set for V2.0 compatibility reasons. 
context (ctx$v zoutputhtp) = true; 
status = lLbr$get_ wily helplibindex | sgutputareth, 
Sutput_driver “prt ee dat 
keydests dsc$c_s , keydescs Cdsc$c_s_bln * 1), 
keydescs Cdsc$c_ “3 “pin : . keydescs Edsc$c_s_bln * 3], 
keydescs Cdsc$c_s_bln * 4], keydescs (dsc$c_s_bln * 5], 
povasess dsc$c_s_bln * 6], keydescs (Cdsc$c_s_bln * 7 
dsc$c~s-bln * 8], keydescs ECdsc$c~s-bin * 935; 
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vO4=000 outine call lbrhelp. 9 RELD function ereee-19RG f3s87i4y — ELBRUSREOUTPUTHL 832 290 43) 


: } 38 or? IF ptatus EQL Lbr$_endtopic THEN ! Abort help on this topic? 

; 1360 Or end_topic_flag = true; ! Set flag to abort additional Library listing and 
: 1361 4 status = true; ! change error to true 

: 1 ¢ 07 : 

3 3 080 

3; 1564 081 RETURN .status 

: 1365 982 END; ! Of call_lbrhelp 


.EXTRN LBRSGL_CONTROL 
0004 00000 CALL_LBRHELP: 
. WORD 


W Save R2 ; 201 
50 00006 CF oO 0000 MOVL §LBRSGL_CONTROL, RO : 205 
52 0— AO 00 9000 MOVL  14(RO)> R2 : 
05 A2 01 88 00008 BISB2 #1, 5(R2) : 206 
50 10 AC 00 0000F MOVL KEYDESCS, RO : 207 
48 AO 9F 00013 PUSHAB 72(RO) : 
40 AO 9F 00016 PUSHAB 64(RO) ; 
38 AO 9F 00019 PUSHAB 56(RO) > 2071 
30 AO 9F O00IC PUSHAB 48(RO) ; 
28 AO 9F OOOTF PUSHAB 40(RO) : 2070 
20 AO 9F 00022 PUSHAB 32(RO) ; 
18 AO 9F 00025 SHAB 24(RO) > 2069. 
10 AO 9F 00028 PUSHAB 16(RO) ; 
08 AO 9F 00028 PUSHAS 8(RO) > 2068 
50 DD 000¢E PUSHL RO + 2072. 
0c AC DD 00030 PUSHL eater pat 3 
0000v CF 9F 00033 PUSHAB OUTPUT DRIVER > 2066 
7E 04 AC 7D 00037 MOV HEL PLISINDER. -(SP) : 2072 
000000006 00 OE FB 00038 CALLS #14, LBRSGET_HELP : | 
05 A2 01 8A 00042 BICB2 #1, 5(R : 2073. 
000000006 8F 50 D1 00046 CMPL _—s STATUS, ALORS END TOPIC : 2075 
08 12 0004D BNEQ 3 F 
0000" CF 01 90 0004F MOVB #1, END_TOPIC_FLAG : 207 
50 01 DO 00054 MOVL #1, STATUS : 207 
04 00057 1$: RET : 208 


; Routine Size: 88 bytes, Routine Base: $CODE$ + 0A62 
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yOe=000 Routine Sutput. driver ° ‘ 19-808-13be 95:95:08 LBR.SRC OS TPOTHYPro3004 . (13) 


; 1367 3 1 XSBITL ‘Routine output driver’; 

: 1368 4 1 ROUTINE output_driver Tlinedesc, helpflags, printdata, helplevel) = 

; 1369 5 BEGIN 

; 1370 0 : 

3; 1371 0 '++ 

; ; if 4 : FUNCTIONAL DESCRIPTION: 

: 1374 090 : Call user supplied output routine to print a Line of help text 

3; 1375 091 ! Also set various prompt flags and set initialize pointer user for 

; : rg 8 putting keys into subprompt buffer. 

; 1378 094 ' INPUTS: 

; 1379 095 ‘ ‘ 

3 \ 59 838 Linedesc = address of descriptor for Line to be output 

$ Ie 098 : helpflags = address of flag longword describing contents of 

3 et 34944 : text that is passed 

3 138¢ $104 : printdata = address of data structure containing flags, levels, 

3 1356 $106 2 and other data for the output driver 

: 1388 2104 : : helplevel = address of longword containing the current key level 

; 1389 2105 ! 

: 1390 2106 ; ! OUTPUTS: 

3: 1391 2107 ! ; ; 

3; 139 108 2! The various data items in printdata are updated and the user supplied 

3 1337 192 § output routine is called to output the Linedesc. 

3; 1395 2111 2 ! ROUTINE VALUE: 

3: 1396 site e: ; 

3; 1397 2115 2! False, if call to user supplied routine returns false. 

: 1398 2114 § ! True, otherwise. 

3: 1399 2115 !<< 

: 1400 2116 2 

3; 1401 2117 2 MAP 

: 1A58 2118 2 Linedesc : REF BBLOCK, 

3; 140 $132 § printdata : REF BBLOCK; 

3 1404 120 

3; 1405 2121 2 BIND 

> 1406 $is¢ 2 true_keys = printdata Chpdsp truekeys) : SIGNED BYTE, ! Number of help keys 

3: 1407 21235 2 help_level = printdata [ paso helplevel]_: BYTE, ' Current key depth 

3 1408 2124 § print flags = printdata Chpd$b printile ] :_BBLOCK, ' Flags for output driver 

3 1409 2125 add_info_level = printdata Ehed L_subpmtlev], ' Current prompt level 

: 1410 1$8 sub_prompt_ptr = er rqeeete See t nmoatate ! Ptr used for ig sub-prompt buffer 
3 1411 1 sengt a. err ee = printdata nee l_lenarray] : REF VECTOR, ' Address of key Length array 

3 \el¢ $156 output_routine = printdata Chpd$l_outputrou]; ! User specified output routine 

7 1414 19 OWN 3 

3 set? 13) topics_available : COUNTEDSTRING ("Information available:'); 

: 1419 138 LOCAL - 

3 1418 134 keylevel, ' Local equivalent of parameter helplevel 
; 1220 13 outeut buf : BBLOCK Chlp$c_pagesize] ere ie oe at the ne 
; 1254 137 output "eesc : BBLOCK [dsc$ts bind, ' Local output descriptor 

: 1656 138 ptr, ! Pointer into output buffer / 
3 142 2139 spaces : WORD, ! Number of spaces to indent output Line 
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° LBR.SRCJOUTPUTHLP.B32; (13) 
} ¢ 140 status; 
1 § status = true; ! Status if user output routine never called 
: flags = ..helpflags; ! Copy helpflags locally 
1 a IF NOT .print es ¢- Chpd$v_all] AND ! If not printing all help text 
1 9 ST A tad hl p$m_nohlptxt) NEQ 0) ! and no help text found 
§ er ine flags Chpd$v_found] = false; ! Then set no help found flag 
Se true; ! And return 


Else say help was found ; 

Rexvere was found, so this will ensure tha 
will not be search, even if no text follo 
Copy key level locally 

Init local descriptor for output Line 


print. flags phedév found’ = true; 
print_flags Chpd$v_all] = true; 


keylevel = ..helplevel; 

output_desc = 0; : 

output_desc Cdsc$w_length]_= .linedesc Cdsc$w_length]; 
output_desc [dsc$a_pointer] = output_buf; 


IF .flags EQL 0 
THEN prompt_flags = .prompt_flags OR hcf$m_info; 


ye papa tay styee 4 


BWNAOVULSWN (OO OONAOULSWN—ODOONOAu 


If help info found 
Then say so 


Bt tt et at et et tt ee et a 


i] 
! If processing key name and moving down a prompt level, 
then build subtopic prompt 


IF ((. flags AND hlp$m_keynamlin) NEQ 0) AND 
Ws t flags AND hcf$m_stay) EQL 0) 
THEN BEGIN 


IF seionet, thongs AND hcf$m_info) NEQ 0 
THEN prompt. lags = .prompt_flags OR hcf$m_stay 
ELSE BEGI 


IF (.keylevel NEQ .help_level) AND (.output_desc Cdsc$w_length] NEQ 0) 
THEN BEGIN 


help level = .keylevel; , . 

CHSMOVE (.output_desc fdsc$w_length), -linedesc Edsc$a_pointer], 
-sub_prompt_ptr); 

Length_array C.help_Tevel) = .output_desc (Cdsc$w henge? 

sub_prompt_ptr = .sub_prompt_ptr + .dutput_desc Edsc$w_length]; 

(.sUb_prompt_ptr)<0,85 = 32; 

sub_prompt_ptr = .sub_prompt_ptr + 1; 


DVI Ft ek at et 


AAOO! w te 
woo 


END; 
add info_level = .keylevel; 


ND; 


' 
i If no help text found, then stay at current level and signal that 
help was not found. 
IF (. flops AND ai pSa_nohlptzt? NEQ 0 
HEN BEGI 


rompt_flags = .prompt_flags OR hcf$m_stay; 
TF CopFint flags Chpdsv. init) EQL 0) ~ 4 


SN NNN NNO OOOO 


5 
5 
5 
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2 
2 
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y047000 Routine Sutput driver . > 10738871382 3 95:09 LOR. SREIOUTPUTHLP 03224 298 (13) 
481 19 THEN print_flags Chpd$v_init] = 1; 
ae 19 Dice san ee eee : 
BBS 
85 


ee ee ee ee ee eee 
Seah sbesh sbesb dh Abb sb Ab Ab Ab Ab Ab Ab sh Ab Ades bealvalealeal eal Salual Ss lS INP oP oF oF oP oP oP ot ar oP oP pt oe Oe ot oe ee 


PRIMINPINININININININS 2 2 OO OO " S| DOOOOCOCSOO oO Oo ‘co. 
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RIPGPIDINIPININYINDPDNYNIPYPIPININYPINIPYDINYIANININININNPONNNPoNoNnyny 


61 76 61 


20 6E 6F 


; If additional info to be found, say so 


IF (.flags AND hlp$m_otherinfo) NEQ 0 
THEN prompt _flags = .prompt_flags OR hcf$m_more; 


' 
} Format output Line and then call user supplied output routine. 


IF ((.true_keys NEQ 0) OR 

cholo. flags Chip$v_help] OR 

((.f ags ND hlp$m_otherinfo) NEQ 0)) 
THEN I 0) OR 


! Not at first topic level ; 

! Want help on help with topic List 
~ ! List of additional info 

Oe rey GTR 
((.f oe AND hlp$m_keynamlin) EQL 0) 
THEN BEGIN 


IF .linedesc Cdsc$w_length] NEQ 0 
THEN BEGIN 


IF lags AND hlp$m_keynamlin) NEQ 0) 
ppeses = omer. eves - 1) * hlp$c_indent 
I a; flops AND ol psa_pohiptat) REQ 0) 
AND (.keylevel EQL 0) 
THEN spaces = hlp$c_indent 
ELSE spaces = .keylevel * hlp$c_indent; 


"r = CHSFILL (ZASCII °° , .spaces, output buf); 
F ((.true_keys EQL 0) AND NOT .help_flags Ehlp$v_help]) 
THEN BEGIN 
true_keys = -1; , 
output desc Cdsc$w_length] = .topics_available (0]; 
co OVE (.output_desc Cdsc$w_length]> topics_available + 1, .ptr); 


ELSE BEGIN : 
CHSMOVE (.output_desc Cdsc$w_length], .linedesc Cdsc$a_pointer], .ptr); 


END; 
Stout pone Cdsc$w_length] = .spaces + .output_desc Cdsc$w_length]; 


SPI ANNAN ES BIT BB PUI US WIP 


status = (.output_routine) (output_desc); 
END; 
RETURN .status; 
END; !Of output_driver 
-PSECT SOWNS,NOEXE,2 
16 00054 TOPICS _AVATL MALE 
69 74 61 6D 72 6F 66 6E€ 49 00055 ASCII \Information available:\ 3 


LBR_OUTPUTHELP 
ye 2000 
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LBR.SRCJOUTPUTHLP.B32; 
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(13) 


3A 65 6C 62 61 6C 69 00064 
.PSECT $CODE$,NOWRT,2 
— ehiengn Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 2084 
J a e e oe Pr e o ’ . ’ Pj 
SE FEB. CE 9E 0900 HOVAB © -=520(SPS. §P : 
5 0 AC DO 0000 MOVL  PRINTDATA, R7 + 2122) 
59 A? 9E 00008 MOV 18(R7), R9 + 2124 
01 DS 9000F PUSHL #1 : 148 
SA 08 BC D 11 MOVL § @HELPFLAGS, FLAGS + 314 
OA 69 07 £0 00015 BBS #1, (RO), 1$ : 3145 
07 SA 9 0019 BLBC. ~—s-FLLAGS, ‘1$ + 2146. 
69 04 8A 0001C BICB2 #4, (R9) + 2148. 
50 01 DO 0001F MOVL #1. RO + 2149) 
04 000 @ RET : 
69 06 88 00023 1$: BISB2 #6, (R9) : 3153, 
56 10 BC 00 00 6 MOVL § @HELPLEVEL, KEYLEVEL : 2155. 
04 AE D4 0002A CLRL OUTPUT _DESC : 2156 
58 04 AC DO 0002D MOVL _LINEDESC, R8 : 2157. 
04 AE 68 BO 00031 MOVW (RB), OUTPUT_DESC F 
08 AE OC AE i 90039 MOVAB OUTPUT BUF, OUTPUT_DESC+4 > 2158 
5A D5 O003A TSTL FLAGS + 2160 
05 12 0003C BNEQ : 
0000" CF 08 88 00056 BISB2 #8, PROMPT_FLAGS : gio 
5B D4 00043 2$: CLRL : 2168 
48 SA 01 €1 00045 BBC #1, FLAGS, 5$ : 
5B D6 00049 INCL R14 : 
40 0000' CF 01 £0 00048 BBS #1, PROMPT_FLAGS, 5$ > 2169) 
07 0000' CF 03 €1 00051 BBC #3. PROMPT-FLAGS, 3$ : 2171 
0000' CF 02 88 00057 BISB2 #2. PROMPT~FLAGS : 2172 | 
2F 11 0005¢ BRB 4$ ; 
56 11. AT 08 00 ED 0005 3$: CMPZV #0, #8, 17(R7), KEYLEVEL : 217 
27 13 00064 BEQL 4$ F 
04 AE B5 00066 TSTW  QUTPUT_DESC : 
¢2 13 00069 BEQL 4$ : | 
11. AT 6 90 00068 MOVB. KEYLEVEL, 17(R7) : 2176 
00 87 04 B88 04 AE 28 0006F MOVC3 OUTPUT DESC. @4(R8), a0(R7) > 2178 | 
50 11 A? OA 90076 MOVZBL 17(R7)7 R : 2179 
0c B740 04 AE 3¢ OO7A MOVZ2WL OUTPUT.DESC, @12(R7)CROJ ; | 
50 04 AE 3¢ 00080 MOVZWL OUTPUT~DESC, RO : 2180 
67 50 £6 0084 ADDL2 9 (R : 
00 B7 20 0087 MOVE #32, a0(R7) : 181 
67 D6 0088 INCL ; 182 
04 6 DO 0008D 4$ MOVL KEYLEVEL, 4(R7) : 218 
51 D4 00091 5$ CLRL > 2193. 
SA E9 00093 BLBf ~=—s- FLAGS, 6$ : 
51 p 009% INCL = RY. ; 
0000° 08 009 BISB2 #2, PROMPT_FLAGS > 2195 
6 ; 0090 BLBS (RO), 6$ > 2196 
gi 8 OA BISB2 #1, (R9) : 3197 
0 D4 OOOAS 68: CLRL oR > 2204 
07 08 E1 O00A5 BBC #2, FLAGS, 7$ ; 
5 6 ae INCL $ 
0000° 04 0O00AB BISB2 #4, PROMPT_FLAGS > 2205 


Ler —_ so P 


; Routine Size: 


rompting and Library searching help function 
Routine output_driver 


03 


Py.) 


SA 


292 bytes, 


v0vo 


—-oO 


on 
AViO Suir >OP OOO PF FPOOCOKOCOWW OO FPULSAOOVUWOO YF 


MOK MS MOM MN NONMONM LUIS $$ OrvOWDIro— fF eoownon 
FOOD MOO VMOMY ON ONMWO-UIM DINO SMnoonu 


SOoOOCCCOCCOCOSOOSOOOCOOOOOOOOOSOOOOOOOOOOOO 


SVI™"OPrrv-"*VOCOM—O wr-O—-oM—>y> OMm-OaMmM—omm—o 


SCODES + OABA 


9: 9¢ 00 AX-11 Bliss-32 V4.0-74 


LBR.SRCJOUTPUTHLP.B32; 
16(R7) 
5, 1 
#5, HELP_FLAGS, 8$ 
RO, 16$ ~ 
aan 
9 
—— 16$ 


or -~—MOD 


wa~<s 


KEYLEVEL SPACES 
), #32, SPACES, OUTPUT_BUF 


LAGS, 13$ 


F 
) 

AILABLE, OUTPUT_DESC 

SC, TOPICS_AVAICABLE+1, (PTR) 


o-o-+2232-—— 2=R—B—-X DBI D—--—B 
con oo Oe Oe acee 

wn 

v 

Pd 

o 

m 

wm 


“+jAP—- Us = Mm + + 


ceere (PTR) 
oreut DES 


STATUS, RO 


Se Se Se Se Ge Ge Ge Se Se Ge Se Be Ge Fe Ge Se Ge Se Se Ge Be Se Ge Se Ge Se Fe Ge Fe Ge Be Se Be Be Be 


16 
LBR_OUTPUTHELP Prompting and Library searching help function 1h-58 5-1 -1984 02:04:0 AX-11 Bliss-32 V4.0-74 e 1 
v04=000 Routine Cibs available Aste ergo pr1984 sighies «| KeMR sRedonEPOTHL es o3f4 a0¢ 42) 


o ZSBITL ‘Routine Libs_available'; 
ROUTINE Libs_available (outputroutine, outputwidth) = 


output_buf : “BBLOCK Chi p$c _pagesizel, 
status; 


OWN 
header : COUNTEDSTRING (* Additional help Libraries available (type a@name for topics):'); 


filesp 
Hleapes Cdvisa pointer] = filespec_buf; 


Libno = -1; 
status = false; 


WHILE NOT .status 
DO BEGIN 


IF NOT tran_next_lib (filespec, acmode, Libno) ' Get first Lib spec 
THEN RETORN true; ' If none, then return 
status = file _present (filespec); 


Init file spec desc 


Init search 
Init status 


Loop searching for a Library 


4 
rk 
50 144 
2) FUNCTIONAL DESCRIPTION 
$s 38 Output a list of the define default Libraries. 
re 2? INPUTS: 
4g 2f outputroutine = address of the user supplied output routine 
te $528 outputwidth = address of a longword containing the output Line width 
re $$ 1 OUTPUTS: 
re $$ § The List is output by using the user supplied routine. 
50 $$ 5 i ROUTINE VALUE: 
] 22 § ; 
36 32 i . Always true. 
54 269 
55 2270 LOCAL 
56 2e71 acmode 
57 2272 blank [ine : BBLOCK Cdsc $e _s_bin], 
58 $s 3 filespec : BBLOCK Cdscs c_s_b{n], 
59 $ 4 filespec_ buf BBLOCK Cnam$c_maxrss), 
60 2275 filename’: BBLOCK Cdsc$c_s_b{n], 
°} $$ $ tee buf : VECTOR fitiSnese’ length, BYTE], 
no 
8 $$ 3 output_desc : BBLOCK Cdsc$c_s_bln], 
33 0 
281 
288 
4 
3 : 
6 
§ 7 
8 
9 
0 
: 
ly 
5 


Is file present? 


OO OOOO O O00 090000 09 00 G9 09 09 09 SINS NIE NN NA AAA AOAAAO 


lLename = 0; Init file name desc 


fi 

filename Cdsc$a pointer] = filename_buf; 
blank_line = 0; 

blank~ line Cdsc$a pointer] = output_buf; 


Init blank Line desc 


Be Be Oe Se FO Fs G5 Se Se FF Se SH Se Se FFs He SH Ge FHSS TS Se Ge FH Ge Ge Se Ge Ge Ge Ge Gs Se Ge Se Se Se Se SF Se Sees SH Se SH SH SH Se SEs Se Se Seesese 
ee ee ce ee ee ec ct a ee ce ee ee ee ee ee ce ee ee ee DD ce ee ce ee a me ee ee ce ce ce cD ce ee ce ee ed ed 


- 


WAPIPININIMININYINININININUNININYPS 


16 
LBR_OUTPUTHELP Prompting and library searching help function 1b-Se 1984 02:04:0 AX-11 Bliss-32 V4.0-74 P 5 
1802000 Routine Vids availed e . 12280871382 13:95:08 {TBR SRC OUTPUTHLP.B32; 29 425 
03 
89 output_desc = .header (0); ! Init header desc 


output_desc Cdsc$a_pointer] = header (1); 


(.,outputroutine) (blank_line); 
(,outputroutine) (output desc); 
(,outputroutine) (blank_Tine); 


Output header 


output_desc = 0; ! Reuser output desc for 

output desc fdscSa_pointer) = output_buf; ! Lib name Lists 

CHSFILC (2X"20", .coutputwidth, output_buf); 

switch_Libname (filespec, filename); ! Get first Lib name 

output desc Cdsc$w_tength] = .filenameCdsc$w_length] + 2; ! Move it into 

CHSMOVE (. filename Cdsc$w_length], filename buf, output_buf + 2): ! the List. 

WHILE tran _next_lib(filespec, acmode, Libno) DO ! While more Libs translate, 
05 IF filé present (ti lespecd THEN ! if the file exists, 

switch _Libname(filespec, filename); ! get its name. 


! If we can't fit a couple of spaces and the filename on the 
! Line we're working on, send the Line to the output routine and 
start a new one: 


iF <.Sutputdesctaactu, Lengths +2 + .filename[dsc$w_length]) GTRU ..outputwidth THEN 


WARININMINPINNININININ 3 2 SO oe noose ani 


PWN" OOONAUES WN $$ O OONAULS WN SO VDONAYV EW" OVOONOuM 


(,outputroutine) (output_desc); 


—PINININIWIN NANA & BE AWA 


0 

1 

1 

1 

1 

: 

1 3 output desc i gscSu_ length] = 0; 

1 3 CHSFILC (%X°20', v.outputwidth, output_buf); 

: ; END; 

$ 35 } Move the filename onto the Line (leaving two padding spaces): 

2 33 CHSMOVE (.filenameCdsc$w_length], filename_buf, 

2 33 output_buf + .output_desc(dsc$w_length] + 2); 

$ 3 cutout descldecdu, lengths = .output_desc(dsc$w_length] + 2 + .filename[dsc$w_length); 
2 34 : 

2 34 Coutputrout ine) (output_desc); ! Output Last Line built 
2 34 RETURN true; 
629 34 END; 


-PSECT SOWNS,NOEXE,2 


0068 -BLKB 1 
3— Q006C HEADER: .BYTE 62 ; : 
65 68 20 66 61 6& 6F 69 74 69 64 64 41 0 20 7 -ASCII \ Additional help libraries available (t\ ; 
76 61 20 65 69 Gs 61 re 62 69 6C 20 70 6C¢ BB C 3 
74 20 72 6F 66 26 6 & Si GF £6 50 8 $0 $9 009% ASCII \ype aname for topics) :\ 
: e a@name for topics): 3 
$. 35 73 8% 83 50 GF OodAG ” . 


tet mae f P 


and Librar 
bs_available 


F4 


0000V 


FEEC 


FC 
FEBS 
FEBC 


searching help function 


O3FC 00000 LIBS_AVAILABLE: 
«WORD 


= 
wr 


oO 
So 


HOOP OMNOYSMNO FS PUNO COP OC FPOYP COP OMOF POOP POM GMOPOCMVIOF PVUunnn1on Poo 
SOOoOoooooooooooo 


peleloleleleloleloeloelelolelqo) 


WAPOTOFOTON | = = 232 GO0OO 


nm 
o 
~m 
wn 


nn 
mm 
Ww 
wn 


oo 

oo 
NOOOO™|OM 
@ofOOCM@@MOooe 
AVA E & EWN 


AW DOM ODYVIWNS NWS FOWONnUIMoo "Ww SELSRBSUr mo FPOIMNO~IN 
= 
bed 


COOOoCCoOSOSooOoOOoOoOoOoOooooooooooo 


DAWTNOVOM NOMM"DOOOCNMP "OO WOO T"OTNONOTOOOI ODOC TNOWMOOUOMIOOVUOO 
MOOW NOD "OO "OOO FBT OMSL "DW "WD "*OMPMLeM LOW "OW" OCOLmMmmMmoemm 
SOOooooooooooooooooooooooooooooooooooooooooOoOoOoOoOoOooOOoOOoOoOOoOO 


OVO ONMTSCO—TOWOMMONIWNTOMOMS $90 $90 “TFG Ae "MII IT "O—TC MNOWOMMnon—CcUoMmMman 


QOOOODDOD YS SF SPF FS OOOO SIN NINO O 


4 02:04: AX-11 Bliss-32 V4.0-74 
ars 1 95:05:00 LBR.SRCJOUTPUTHLP.B32; 
SCODES,NOWRT,2 
Save R2,R3,R4,R5,R6,R7,RB,RI 
TRAN_NEXT_LIB, R9 
-B44TSP), SP 
FILESPEC 
FILESPEC BUF, FILESPEC+4 
a. LIBNO 
STATUS 
(ee 3$ 
MODE 
SP 


FILE EC 
#3, TRAN_NEXT_LIB 
RO, 2$ 
FILESPEC 
#1, FILE PRESENT 
RO. STATUS 

1$ 

FILENAME 
FILENAME BUF FILENAME +4 

OUT tPUT _BUF BLANK gh INE*4 

HEADER; OuPy 

HEADER+1, OUYPOr: Sisco 
QUTRUTROUT I NE, RB 
BLANK INE 
wi, (RB) 
QuFPUT 0 DESC 
BLANK CINE 

#1 ch oe 
outPU 
OUTPUT “BUF OUTPUT _DESC+4 
#0, (SP), #32, aGUTPUTWIDTH, OUTPUT_BUF 
FILENAME 


BNAME 
LENARE. OUTPUT DESC 
ENAM NES FILENAME BOF, OUTPUT_BUF +2 


Est 


LE_ 

E 
TCH_LIBNAME 
D RO 

; R? 


Se Se Se Se Se Se Se Ge Se Se Se Se Se Ss Se Se Se Se Se Fe Be Se Se Se Se Se Se Be Se Fe Se Se Se Ge Se Se Fe Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Be Se Be 


16 
LBR_OUTPUTHELP Prompting and Library searching help function 16- Sep-1984 4:0 AX-11 Bliss-32 V4.0-74 "Page 54 
v0c=000 Routine Tibs eve lable ’ 1 Haat Pi 93: He 28 LBR.SRCJOUTP UTHLP -B3 3554 * 1a} 
08 BC 29 D1 D4 CMPL RO, @OUTPUTWIDTH : 
1 ge D8 BLEQU é 
FEBS fo F DA PUSHAB 0 “ DESC 3; 2330 
we ee | Eas OO itput DESC 2 2331 
08 BC 20 6E 5 69 Be + MOVC5S o. (SP), #32, @OUTPUTWIDTH, OUTPUT_BUF : $333 
56 FEB cp ¢ ED 5$ MOVZWL OUTPUT DESC + 2338 
OA AE46 FECO CD F MOVC3 FICENAME | BG, OUTPUT _BUF +2[R6) 3 
50 02 ar7kg : OFA MOVAB BCR? : 2339 
FEB8 CD 5 8 OOFF MOVW RO, NTT _DESC : 
9B 11 818 BRB : 2320. 
FEBS CD OF 106 6$: PUSHAB OUTPUT_DESC 3 2342. 
68 01 FB OO10A CALLS #1, (RB) FY 
50 01 DO 0010D 7$: MOVL #1, RO 3 3343 | 
04 00110 RET 3 2344 


; Routine Size: 273 bytes, Routine Base: S$CODE$S + OBDE 


M 16 
LBR_OUTPUTHELP Prompting and Library searching help function 16-Sep-1984 02:04:0 AX-11 Bliss-32 V4.0-742 P 5 
v04= Routine Vile_present’ ° . 14 ats? 95:95:08 LiBR.SRC OUTPUTHLP.B32;1 age 433 


; 1631 45 1 XSBTTL ‘Routine file_present'; 

3; 16 ¢ $ 1 ROUTINE file_present (filename) = 

; 16 4 BEGIN 

: E38 29 5 14s 

3 16 6 20 FUNCTIONAL DESCRIPTION: 

3 1 ; 50 Return success if the file exists. 
; 1640 34 | INPUTS: 

; 1668 36 ; filename = address of desc of file name 
> 1664 324 i QUTPUTS: 

3; 1645 2359 § ! 

He com tat Bem 

: 1648 a360 ; i ROUTINE VALUE: 

: 1650 2364 2 | True, if file exists 

3; 1651 2365 2! False, if it doesn't 

3 1626 2366 ! 

: 165 2367 bee 

ee eee 

> 1656 2370 $ filename : REF BBLOCK; 

: 1888 $37) $ Loca 

> 1659 $378 § fab : BBLOCK Cfab$c_bin), 

> 1660 2374 2 nam : BBLOCK Cnam$c_blnJ, 

3 1661 2375 string : BBLOCK Cnam$c_maxrss), 
i Pa 

> 1664 P 2378 2 SNAM_INIT ( NAM = nam 

3 1665 P 2379 2 ESS = nam$c_maxrss, 

3 1o98 $ae0 § ESA = string); 

> 1668 P 238¢ 2 $FAB_INIT ( FAB = fab 

3 1669 P 2383 2 FNS = . filename dsc$w_length] 
; 1670 P Saae 2 FNA = .filename dsc$a_pointerd, 
: 1671 P 2385 2 DNS = .syshelp (0), 

: 4 P 2386 § DNA = syshelp (1), 

3 1673 4 NAM = nam); 

> 1675 359 : IF (status = SPARSE (FAB = fab)) 

: 1676 S305 § THEN (status = $SEARCH (FAB = fab)); 

> 1678 239¢ 2 RETURN .status; 

3: 1679 395 1 END; 


-EXTRN SYSSSEARCH 


003C 00000 FILE_PRESENT: 
eWORD Save R2,R3,R4,R5 3: 2346 
5E FESO CE 9€ 00002 MOVAB ~235.(SPS. §p ; 


occa ee A 


| 1 

/LBR_OUTPUTHELP P ti d lib hi help function 16- Sep-1984 04:0 Ax-11 B =32 V4.0-74 Page 56 
ybe=000 pone 18s “present. Oe ee ae 1 ~3eP- 138% 95:95:08 YeaR SREJOUTPUTHLP: B32; ° 18 
0060 8F 00 6E i 00 2c nt MOVCS #0, (SP), #0, #96, SRMS_PTR ; 2380 

reg OE ee RE mE : 

FF5C CD 6E 9E 0001D MOVA SthI ING shins. PTR+12 : 
0050 = BF 00 SE : o6 5f 00 é MOVCS #0, (SP), #0 #80, SRMS_PTR ; 2387 

es “Eames ain) : 

CF AD 88 90 00035 MOVB SRMS-PTR+31 : 

oe a a 0 et : 

pc AD ; AO D aos MOVL cILEN SAMS_PTR+44 : 

omer 6s Basa SLRECER Sasyptent : 
oe ey Bie Bike ee ern as 

— OER HUES EAS fh gussgns : 
BO AD 9F ait PUSHAB FAB + 2390 

000000006 00 01 FB 00068 CALLS #1, SYSS$SEARCH ; 
04 O006F 1$: RET + 2393 


; Routine Size: 112 bytes, Routine Base: S$ CODES + OCEF 


LATS Assesses SSS ss sss sss sea ness auensnnenss 


——— —E — a 


| 
| 1 
|LBR_OUTPUTHELP Prompting and Library searching help function 1b-se 1984 02:04:0 AX-11 Bliss-32 V4.0-742 Page 57. PAD 
“¥64=000 Routine Rohe Lp. Log : . , 12-88-1382 95:0 LOR -SREJOUTPUTHLP;O 2;1 : (16) | v04 
3 1681 94 1 XSBITL ‘Routine nohelp_log'; | 
(3 168 95 1 ROUTINE nohelp_log (logdesc) = 
; 168 38 BEGIN 
: 1686 9 
'3 1685 98 ++ 
; 1056 99 ! FUNCTIONAL DESCRIPTION: 
; 1687 400 : 
> 1688 401 ' If the logical name for a log file is defined, then put a record 
: 1689 40 : into the specified log file. If that file does not already exist, 
; 1690 40 ; then create it. 
3; 1691 404 : 
; 1699 405 ! INPUTS: 
> 169 406 2 i 
3 1998 2408 } logdesc = address of string descriptor for record to be output 
e . | 
; 1696 409 ! OUTPUTS: 
; 1697 2410 : | 
; 1698 2411 : None. 
: 1699 stig ‘ 
; 1700 241 ' ROUTINE VALUE: 
; 1701 2414 : | 
: 1702 2415 ' Always true. 
; 1703 2416 : 
: *704 2417 !e= 
3; 1705 2418 
3 1706 2419 2 MAP ) 
3 1707 2420 2 logdesc : REF BBLOCK; ‘Descriptor of log record 
; 1708 2421 2 
3 1709 $e5§ 2 LOCAL } 
3 1710 2423 2 logresult : VECTOR Cnam$c_maxrss, BYTE], !Space for HELP$LOG resultant filename 
3 1711 2424 2 logrsdesc : BBLOCK Cdsc$c_s_binl, 'Descriptor for result name 
3 1712 2425 2 Lognam : BBLOCK ECnam$c_b{n], 'NAM block for HELP$LOG 
: 1715 2426 2 Logfab : BBLOCK Cfab$c_bin], 'FAB for output to HELPSLOG 
; 1714 2427 2 Lograb : BBLOCK Crab$c_bin], 'RAB for output to HELP$LOG 
3; 1715 2428 2 Logfile : BBLOCK pqscéc_s_bin}. : t 
3 1716 2429 2 logfiletrn : BBLOCK Cdsc$c_s_bin], 'Descriptor for HELP$LOG translation 
3: 1717 2430 2 status; 
: 1718 2431 2 
31719 RL 2 OWN 
; i730 seta 2 logstring : COUNTEDSTRING (‘HELPS$LOG'); 
3; 1722 2435 Logfile paecev_lengehd = .logstring Ste ! Initialize logical name | 
; 1o¢? 303? logfile Cdsc$a_pointer] = logstring (1); | 
: 1758 136 lLogfiletrn Cdsc$w_length) = nam$c_maxrss; ! Initialize descriptor for logical 
3 1756 sein logfiletrn Cdsc$a_pointer] = logrésult; ! name translation 
. 2 
; 1728 P shes SNAM_INIT ( NAM = Lognam, ! Initialize name block 
: 1799 P she ESS = nam$c_maxrss, 
:; 1730 P 244 ESA = logresult, 
; 1731 P 2444 RSS = nam$c_maxrss, 
3 1736 445 RSA = logresult); 
; 173 re . i 
3 1734 P 244 SFAB_INIT ( FAB = L ! Initialize fab 
> 1735 P 2448 FNS = .logfil Fdsc$w length) 
3; 1736 P 2449 FNA = . logfile [dsc$a_pointer], 
3 17357 P 2450 FAC = PUT, 


| 
a a eee ee ES 


e - _——— ne 


) , Re 
ABR TPUTHELP Prompting and Library searching help function 16=Sep :0 AX-11 Bliss-32 V4.0- Page 58) 
04 Be=000 Rout ine Rohe lp. log af . 7 14-Sep 71382 93: % 8 LBR. SREJOUTPUTHLP B30. . (16) | 
i | 
; 1738 P 2451 FOP = CIF, 
: 1739 P 24 ¢ RAT = CR, | 
$1740 4 NAM = [ognam); | 
3 1741 454 
; 17 P 2455 SRAB_INIT ( RAB = Lograb, ! Initialize rab 
3 174 P t2$ FAB = sop { 08. | 
3 1746 t2 ROP = EOF); | 
3: 1745 458 
: 1746 459 ! : | 
3 1747 460 ! If HELPSLOG can be successfull translated, 
3: 1748 461 ‘ 1. Create the file doesn't already exist. 
: 1749 46g 2 | g- Connect, to that file. | 
3; 1750 46 ' . Write the record to that file. 
3; 1751 464 : - Clean up afterwards. 
; 1736 sege ' 
3; 175 466 
3; 17546 2467 4 IF ((status = STRNLOG (LOGNAM = Logfile, RSLBUF = Logfiletrn)) | 
3; 1755 2468 ; AND (.status NEQ SS$_NOTRAN) ) THEN IF (status = SCREATE (FAB = Logfab)) 
: 1756 se$8 THEN BEGIN 
3; 1757 470 4 IF (status = SCONNECT (RAB = Lograb)) 
: 1758 2471 & THEN pein 
: 1759 sere 4 lograb Crab$w -"s? = “pepeene peecey.. Lengthj; 
:; 1760 2473 4 poeres rab$l_ = Logdesc dsc$a spointer]; 
; 1761 2474 & logrsdesc Ssc$u. length] = ,lognam Cnham$b rsd; 
: 1766 $022 ? Loar cogese yr pincers . Lognam ee rsal; 
> 1764 2477 5 IF Not” (stetuss SD ESCONNECT (RAB = Lograb)) 
: 1765 2478 4 THEN SIGNAL ((shr$_closeout OR hlp$c_ posse sty OR sts$k warning), 
3 1766 2479 & 1, logrsdesc, .status, -lograb [rab$l_stvJ); 
; 1767 2480 3 END; 
: 1768 2481 & IF NOT (status = SCLOSE (FAB= Logfab)) 
3: 1769 sens 3 THEN SIGNAL ((shr$_closeout OR hlp$c_ pokey OR sts$k warning), 
3 1770 2483 3 1, logrsdesc, .status, vlograb Crab$l_stvJ); 
s W77rl 2484 2 END 
3; 1772 2485 2 RETURN true 
: 1773 2486 1 END; '0f nohelp_log 
-PSECT SOWNS,NOEXE,2 
OOOAB -BLK 1 
08 OOOAC LOGSTRING: 8 
47 4F 4C 24 50 4C 45 48 OOOAD ASCII \HELPSLOG\ 
| -EXTRN SYSSCREATE, SYSS$CONNECT 
“EXTRN SYSSPUT, SYSSDISCONNECT 
| SEXTRN SYSS$CLOSE 
-PSECT S$CODE$,NOWRT,2 | 
007C 00000 NOHELP_LOG: 
~ ,WOR Save R2,R3,R4,R5,R6 : 2395 | 
56 000000006 00 9€ 99002 MOVAB LIBSSIGNAL R6 ; | 
5E F4 CE 9€E 0000 MOVAB =-524(SP), SP ; 
08 AE 0000' CF 9B OQOO0E MOVZBW LOGSTRING, LOGFILE 3 2435 | 


ee 


iSoseor19Rs 99:04: 


~—LBR_ TPUTHELP Prompting and Library searching help function 
y80=000 Routine Rohe lp. log . , : 


ay 


9 AX-11 Bliss-32 V4.0-742 Page 59 
LBR.SRCJOUTPUTHLP.B32;1 (16) | 


:0 

7:4 

Pt Males Me ier Sunes 
LOG 


Oc AE 0000' cf 9€ 0o14 OVAB : 2636 
6E FF 68F «OB : 1A MOVZBW + 3438 
04 AE FFOO cD 9E OOO1E MOVAB RESULT. 1kor TLETRNGG + 2439 
| 0060 &F 00 6E tee 00 2c 00 4 movcS #0, (SP), #0, #96, SRMS_PTR + 2645. 
Q0AS CE 6002 8F B80 000 : MoV 424578. SAMS PTR : 
| DOAG CE 01 8E 000 MNEGB #1, $RMS PTR : 
OOA8 CE FFOO CD 9E OOO3A MOVAB LOGRESULT Sais. PTR+4 ; 
OOAE CE 01 8E 00041 MNEGB R+1 : 
0080 CE FFOO CD 9E 00046 MOVAB COGRE SULT, $RMS_PTR+12 : 
| 0050 «a8 00 6E a 09 2¢ 90040 movcS #0, (SP), #0, #80, $RMS_PTR : 2653, 
| 54 AE 5003 8F BO 80086 MOV £0388 $RMS_PTR : | 
58 AE 02000000 8F Dd 0005¢ MOVL } 534432, SRS PTR+4 : 
6A AE 01 90 00064 MOVE : 
72 AE 0202 8F BO 00068 MOVW rian iy PTR+30 ; | 
7 O0AS CE 9E 0006E MOVAB LOGNAM, $RMS_PTR+40 ; 
0080 CE OC AE 00 00074 MOVL  LOGFILE+4, $RMS_PTR+44 : 
0088 CE 08 AE 90 0007A MOVE, LOGFILE $RMS_PTR+52 ; | 
0044 &8F 00 6E * 00 2c 00080 MOVCS #0, (SPS, #0, #68, SRMS_PTR ; 2457 | 
10 AE 4401 BF. «BO 00089 MOVW #17409, SAMS PTR | 
14. AE 0100 8F 3C OO08F MOVZWL $RMS ; 
4C AE 54 AE 9E 00095 MOVAB LOgras. Sag. "BTR+60 : | 
7E 7C OOO9A CLRQ  =<(SP) t 2467 
7E D4 0009C CLRL -(SP) : 
OC AE 9F 0009E PUSHAB LOGFILETRN : | 
7E D4 OOOA1 CLRL = =(SP) : | 
1¢ AE 9F OOOAS PUSHAB LOGFILE : 
000000006 00 06 FB O00A6 CALLS #6, SYS$TRNLOG : | 
52 50 DO OOOAD 0; STAT : 
09 52 £9 00080 BLBC STATUS, 1$ : | 
00000629 = 8F 52 D1 000B3 CMPL = STATUS. #1577 : 2668 | 
03 12 OOOBA BNEQ 2$ : 
008D 31 OO0BC 1$: BRW : 
54 AE 9F OOOBF 2$: PUSHAB LOGFAB : 
000000006 00 01 FB 000C2 CALLS #1, SYSSCREATE : 
52 50 pO 000C9 MOVL RO. STATUS : | 
7D 52 €9 000CC BLBC STATUS, 4$ : 
10 AE SF OOOCF PUSHAB LOGRAB : 2470 
000000006 00 01 FB 000D2 CALLS #1, SYSSCONNECT : 
52 50 DO 00009 MOVL 0, STA Ys ; 
49 52 £9 000DC BLBC STATUS, 3$ : 
50 04 AC 00 O00DF MOVL L0G Esc, RO + 2472 
32. AE 60 BO 000E3 MOVW (RO), LOGRAB+34 : 
38 = AE 04 AO DO 000E7 MOVL  4(ROS, LOGRAB+40 + 2473 
0104 CE 00A7 CE 9B OOOEC MOVZBW LOGNAM+3, LOGRSDESC > 2474 
FEFC CD 00AB CE DO oor s MOVL  LOGNAM+4. LOGRSDESC+4 > 2475 
10 AE 9F OOOFA PUSHAB LOGRAB : 2676 
000000006 00 01 FB BOoFD CALLS #1, SYSS$PUT : 
10 AE 9F 00104 PUSHAB L : 2477 | 
000000006 00 01 FB 00107 CALLS #1, SYSSDISCONNECT : 
52 29 DO 0010E MOVL RO. STATUS : 
14 52 «EB dort BLBS STATUS, 3$ : 
1C AE DD 00114 PUSHL LOGRAB+1 > 2479 
52 DD 00117 PUSHL STATUS : | 
FEF8 CD 9F 00119 PUSHAB LOGRSDESC > 2478 


a 


epee - 
i 


LBR_OUTPUTHELP 
v04=000 


; Routine Size: 


Lcccochitetiaama 


Routine nohelp_log 


Prompting and Library searching help function ! 
01 DD 00110 

00761058 8F DD OO11F 

66 05 FB 80158 
54 AE 9F 00128 

00000000G 00 01 FB Op 168 
52 50 DO 001 ¢ 

14 52 €8 0013 
1C AE DOD 00138 
52 DD 00138 
FEF8 CD 9F 00130 

1 DD 00141 
00761058 F OD O143 

66 5 fe 014 

50 01 pO 0014C 

04 0014F 

Routine Base: S$CODE$ + ODSF 


336 bytes, 


3$: 


4$: 


F 1 
6-Sep-1984 9: Os: 09 AX-11 Bliss-32 V4.0-742 
4-Sep-1984 7:4 CJou 


LBR.SR TPUTHLP.B32; 1 

#1 

#7737432 

tog LIBSSIGNAL 
#1, sisecL Ose 

RO, STATUS 

STATUS, 4 

LOGRAB+12 

STATUS 

etait 

#7737432 

#5, LIBSSIGNAL 

#1, RO 


Bete Se Se Se Se Se Be Se Se Be Se Se Se Bs 


LBF 


—_—_—_— en 


1 
LBR_OUTPUTHELP Prompting and Library searching help function 1-se =1984 02:04:0 AX-11 Bliss-32 V4.0-742 Pa 1 LBR 
y0G= tne F key oF ting 1er8ep= 182 93:95:28 j 9°19), 


Routine remove_last “Sep LBR.SRCJOUTPUTHLP.B32;1 


< 
Oo 
KR 


OOFC 00000 REMOVE _LAST_KEY: 
oW Rb 


/3 1775 487 1 ZSBTiL_ ‘Routine remove_last_key'; ; 
13 1776 488 1 ROUTINE remove_last_key (stringdescr, last_key_length) = ; 
51777 489 2 BEGIN i 
/3 1778 490 ; 
; 1779 491 io : 
; 1790 rh FUNCTIONAL DESCRIPTION: : 
E 1782 t3e } Remove the last keyword in the supplied string descriptor. : 
; 1786 496 ' INPUTS: : 
; 1785 497 ‘ : 
; 1786 rh stringdescr = address of string descriptor for input text string : 
3 ies 239 last_key_length = the Length of the key that is to be removed . 
: 1790 206 ' OUTPUTS: 3 
: 1793 204 ingd i descri h last k d | 
: ; stringdescr = nput descriptor with last key remove : 
: 1798 505 3 i ” : : y | 
3; 1794 506 ' ROUTINE VALUE: : 
3; 1795 507 : : 
; 1796 $208 : Always true. : 
: 1797 509 ! 3 
: 1798 2510 leo : 
3; 1799 2511 : 
; 1800 $2i¢ 2 MAP ‘ | : 
3; 1801 51 2 stringdescr : REF BBLOCK; | : 
; 1008 2514 2 : 
; 180 2515 2 LOCAL : : 
3 Hb oe] $218 § Last_char; ! Pointer to last character of the Last key “ 
: 1806 2518 2 last_char = .stringdescr Cdsc$w_length) ! Find last char before ‘' subtopic? "' ; 
3; 1807 2519 2 + .stringdescr Cdsc$a_pointer] - 12 
; 1808 2520 § - .last_key_length; 
; 1809 2521 : 
: 1810 2522 2 CHSMOVE (.subtopic [0], subtopic [1], .last char + 1); ! Replace ‘subtopic? *' string 
: 1811 $257 2 stringdescr Cdsc$w_length] = .last char + 1 : ! Calculate new length 
; Bie 524 2 - .stringdescr Cdsc$a_pointer); 
; 181 2525 2 
3; 1814 2526 2 RETURN true; 
; 1815 2527 1 END; ! Of remove_last_key 
0 Save R2,R3,R4,R5,R6,R7 : 2488 
57 04 AC 00 00002 MOVL § STRINGDESCR, R7 ; 2518 
56 67 3C 00006 MOVZWL (R7), R6 ; 2519 
56 04 Az? CO 00009 ADDL2 4(R75, R6 ; 
28 08 AC Cs a4 SUBL LAST_KEY_LENGTH, R6 ; 2520 
5 0C Ce 00011 SUBL2 #12, LAST_CHAR : 
50 0000" ¢t 9A 00014 MOVZBL SUBTOPIC,~RO ; 2522 
01 A6 0000' CF 0 28 0019 OVC3 RO, SUBTOPIC+1, 1(LAST_CHAR) 
56 06 A? C 9020 SUBL2  4(R7), R6 ; 2524 
67 56 0B Al 00024 ADDW3 = #11, RO, (R7) : 
| 


H 1 
LBR_OUTPUTHELP Prompting and Library searching help function 16-Sep-1984 02:04:0 VAX=-11 Bliss-32 V4.0-742 P 
yon=000 Rout ine Fonove. Last. ey ' ‘ 14-Sep-1984 15 :95588 LLBR SREJOUTPUTHLP b32 54 age 19 
50 01 DO 00028 MOVL #1, RO : 2526 
04 00028 RET ; 2527 


; Routine Size: 44 bytes, Routine Base: S$CODE$ + OEAF 
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| BP OUT PUTHELP pronet ing and Library searching help function 1b-Se0-1984 9g: 95:09 AxX-11 Bliss- 


32 V4.0-74 P 

iV outine remove_terminator LBR.SRC OOTPUTHLP B3044 age $F 
: 1817 5 1 ZSBTTL "Routine remove_terminator'; 

; 1918 1 ROUTINE remove_terminafor (stringdescr) = 

: a é ? BEGIN 

: 1821 23¢ 8 itt 

; 18 ¢ ! FUNCTIONAL DESCRIPTION: 

; 18 534 : 

; \s 2 2 5 Remove the termination characters at the end of the string descriptor. 
: 18 6 2 ? i INPUTS: | 
; \8 3 4 ; stringdescr = address of string descriptor for input text string | 
: 1830 541 2 | OUTPUTS: 
; 1831 2¢§ ' 

3 1336 az stringdescr = input descriptor with termination characters removed 
: 1834 $828 $ i ROUTINE VALUE: 

; 1835 see$ a} 
3; 1836 547 2! Always true. 
; 1837 2548 2! 

>; 1838 2549 2 !-- 

: 1839 2550 : 

; 1840 See) MAP 

; H+ 9g $228 2 stringdescr : REF BBLOCK; 
: 1828 2554 ; WHILE (CHSRCHAR (.stringdescr Cdsc$a_pointer] ! While termination character present | 
> 1844 2555 3 _+ .stringdescr Cdsc$w_length] - 1) LSS %Xx'20") 
; 1845 2556 3 AND (.stringdescr Cdsc$w_length] GTR 0) 
3 Hb 4 $22t § DO stringdescr Cdsc$w_length] = .stringdescr Cdsc$w_length] - 1;! Remove terminator 
: 1848 2559 2 RETURN true; | 
3 1849 2560 1 END; ! Of remove_terminator 


0000 00000 sites ie aia 


- WO Save nothing : 2529 
51 04 AC pO 00002 MOVL §STRINGDESCR, R1 > 2554 
50 04 BC 3C 00006 1$: MOVZWL @STRINGDESCR, RO : 2555 
50 04 Al CO 0000A ADDL2 4(R1), RO : 
20 FF AO 91 0000¢ CMPB. ss =1 (ROS, #32 : 
OA 1€ 0001 BGEQU 2$ ; | 
04 BC 83 00014 STW aSTRINGDESCR : 2556 
05 13 00017 BEQL © 2$ : 
04 BC 87 00019 DECW  § a@STRINGDESCR : 2557 
E8 11 O001C BRB 1$ F 
50 01 DO OOO1E 2$ MOVL #1, RO : 2559 | 
04 00021 RET 3 2560 | 


; Routine Size: 34 bytes, Routine Base: $CODES + OEDB | 


BeBe Oe BeBe Oe Oe SH Se BH Se S. SHSe Se SH Se Se Se Se Fe Ge Se Se SH Se Se Se Se Se Se Se SESH Se SH Se Se Se Se ae Se Se Sean Be Se eee ee See Be ee Be Peas 


too. 


! HT => space. 
! Upcase foreign 


sss es 8 8 MYUOTOWONOYT 
OWOVNOTOOTNOOCoOM 
MTOROR NR MK eK curucr 

m~" se ©@seeene ans 

= 288 8 8 8 MONK Ne 
ANH MEAT. OOTUIOT 
WNT OR ORNS MRK eK cucueur 
~~ -_- *e © & &© & & @& 
x» sss 8 8 OwOwOvsToyso 

w waTrOoOow ors DOwWOoONW 
RTT OR OR NR Re rN 
> m~ ses es ee eee 
@ se 8 8 8 8 HANK MOMo 
~~ LMM MMW. DOr Oo 
MOUTON. ORNS eee CucucuT 
ae - * es © & © & & & 
<« \*s es 8 8 & MwTOWOWOWUD® 
— wONMOTOSTOMUEDOO-Oo- 
KNIT OR Orr er rucucC 
cat ge ee see eses 
2 e886 8 8 we MOMN kk 
— WN MOEOMOEOMUNnOowdo-Oo- 
HUNTER OF Dm cueucce 
ma ee esse eee 8 
wi sss 8s 8 8 “OWOTOWOOO 
K— FTOWNDVNOrMINODO-O-— 
KS ONT P. OR. Derr ceucT 
aQa=- ee ese eeess 


ss ss 88 Mek MOmoen 


(Also substitutes a space 
'Of make_uppercase 


REF BLOCKL, BYTE], oname: REF VECTORC, BYTEJ) = 
pointer], fill, 


-idesc(dsc$a 
-oname); 


~N ees ees ~mrowuoweowrow 

Ww MDOTOWOOMNODO-—O-— 
DOOUMAR. OR. OR RH RK KVR w 

a ee eee ee 8 
Oeeese ees MMR MLM 

HK KE MANOUIMT ODO Om 

VY NMNODOSOn eK KKK ve wv 

ws ee 2e*e &©@& 8&8 @&© &@ @ 

>O +e 8 8 8 8 MYUOTOWONOW 
OWNOTOTM~T ODO — Ome 
 OMNMNODOD RK KKK KVR w 

own ee @ se eee 8 

pw) es 8 8 8 8 =e MOMer Ne 

2B OMNK LMR PIM TORO KO 
OBTK—MNDDODOK KKK KVR 

+. ~ eee ee eee 
o fees see es OWNVOTOvToO 
WMD TOWWVOCUMT ORO - Oe 

' QA K—MNODOSOK KK KK VN Ww 


@e eee e288 8 


address of buffer to contain uppercase output string 


address of string descriptor for input text string 


ase (idesc: 

table, 
tengthi. 
length, 


_upper_case 
as described above 


make_upper_case'; 


he name at Location oname. 
pcase 
fdscéu. 
dsc$w_ 


Upper case the name described by string descriptor idesc and 
RETURN true 


character for a horizontal tab.) 


TL ‘Routine 
INE make 
put t 
idesc = 
oname 
oname : 
ROUTINE VALUE: 
Always true. 


N 
-idesc 
idesc 


3 eM TODOS n KK KK New 
bad e®*e2e*es8s @8& &© @ @& 
eee ses 8 8 DOwOowowovo 
~POMODTOOONW TOR OOO? 

Wow serwrerateremememresarwsecmsat@swsererseses oil OmK—MST ODDAD RK KKK KVR 


FNS OI ONIONS OS OI OI OS OI OI OI OS OI OI OSI ONIONS ONIONS OS OI OI OI OI OI OI OI OI OSI OI OI OS OI OI ONIONS OI OS OI OIOIOI ONION ON Om 


FUNCTIONAL DESCRIPTION: 


fill 
p 
7 
3 
9 

5 

1 

5 

1 

2 
§ 
0 
9 
0 

CHSTRANSLATE (u 


Prompting and Library searching help function 
%SBT 
ROUT 
BEGI 
++ 


Routine make_upper_case 


basta lala latla ia iavia alata iaviaviaviaviaviaviaviatia viata aa aaa aaa lala) 


 alaaeal 


GALA LDR SSS SS SSISSSSS SSO SSNS OS SSSR OLS SSS E SS OSES ESS 


el eel ee el ed cel cel ee el el el el ee ee ee ee ee ee ee ek ee ee oe ek ek ee ee ce ek eh ee ee ee ee ee ee ee ee ee 


LBR_ 
V = 


PPPS HS eS eS HS FS FS SHS HS eS se se "Sse *S eS eS se *SFS*S SS *S Sse sere tesa se *S*S*S*S*S*S FS *S*S*S*S*e*S*S*S*S*See te r*erterearte 


—_> See ee FSCS FS Sea * See SSS ee Sse *S ee ee se *S*S 4S FH 6S 4S FE FR FE FS FH EEE eet 


See FS FS FSCS FS FSFE FSFE *S SSCS FESR *S HES *S SSS 


4 


“> 


s-32 V4.0-74 
TPUTHLP.B32; 


»PSECT SOWNS,NOEXE,2 


wor 


ary searching help function 1 
case 1 


PUT PUTHEL? prongs tng and Libr 
Routine make_upper_ 


a 
ip 


HUM TNOR- DOOD §F 1d I OOF OM IMMNNAT MM 
- 


*e 88 8 8 8&8 & & & & =» @ SS & 


MOOOCOCOCOOCMDOD weTShKO *s 
OMT NOR. DOO OR. DOW OO 
-_— 


Nt ODOM TOON-TO 
TTT TT PTET TTT PTET 


esses 88 88 &© 8 &© to § § F 8 


PADBAAOACOAKNKH I 


N 
~~ 


UPI ~T UN OR. COOP. 0 Ss 3 2 3 
MUO 
ses seeseese ss KOO 


<0 0000006000000 OO OV ee I 
DW CUPIAT WN OR-DOR-DWe- 1 Ft 


esses eee e see seen se wy 

RRR RNIN OMOOCUO 
SH OUPM TWN OR. OOP. CCU COO I 
s 


oO 


eee 
ese se eee eesees § £€ £8 8 


wowowowoooooors + w 


CUM TUN OR. OOK COU = 8 8 eh 


~~ 


UM TUNOR- COORD 21 8 1 1 WO 
wT o 


esses 88 ese es 8 MY 8 8 & 8 


~~ 


. RAK MN. AK MPRA 
Saattetetetteiatene St! ©) TPPT ETT TOTTT 


MLINNNNNINNNO O80 & KKK OO 


3 


o 


-BLKB 
TABLE: 
BYTE 


0085 


OF OD OC OB OA 20 08 O07 06 05 04 03 02 01 00 $0088 UPCASE_ 


SSS SST TT ION OOM ST 
HK—OUMTNOP-DOKD We © 


age er 


OMIT OR-COGhCOO 1 1 ttt 


r-OWNTMN Ou WOVYO<O or. 
VYOWLOKUPIM TN OF- OO <I @ 
OOQOCCe cece cec ce 
pee ool elo lololelololololololo) 
Oooooooooooocoo[o[eoo 


&WOVOLO Or OMTMV Ou 
OK VUMTMNATMNOO FOV OVuu 


O4wovOaoor OnsSTMVK 
eK NUM TNTNDSO IOV OWG 


—O4uWOVOIOOr OM TMC 
THNUMTMNATNOO IOV VO 


N- O4uwoaveadto 
NVM INTiUN TP. 


9 


AQ AB 
? 


MMe Ouwov 
HUMINT TOT 


HOMN TANT 


9E 9D 9C 9B 9A 
AB 


@<toor.omnw 


eH WMPNTATIOE 


FE DD DC DB DA 09 DB D7? D6 DS D4 D 


- 
< 
~ 
< 
~RS5C ar ees 
4 
<< 


Oo 


-PSECT $CODE$,NOWRT,2 


003C 00000 MAKE_UPPER_CASE: 


Nem ww 
Cer ee 
WOO OO 


. WORD 


Save R2,R3,R4,R5 
RO 


E 
RO 


00 


CF 


21 bytes, Routine Base: S$CODE$S + OEFD 


3; Routine Size: 


2616 0 END ELUDOM 


1906 


-EXTRN LIBSSIGNAL 


LBR_OUTPUTHELP Prompting and library searching help function bese Sep-1984 02:04:0 AX-11 4.0-74 
v04=000 Routine Rohe _upper_ case , ~ 1278081382 93:95:20 YeSR SRE IOUT PUT o304 sy of 


PSECT SUMMARY 


3 Name Bytes Attributes 


SOWNS 4h EC, WRT, RD ,NOEXE,NOSHR, LCL, REL, tO ee ar tenes) 
SCODES 385 EC,NOWRT, RD, EXE,NOSHR, LCL, » CON,NOPIC,ALIGN(2) 


Library Statistics 


eo) gee be Mae ets ae ae “== Symbols ----- ooo Pages Processing 

3 File Total Loaded Percent Mapped Time 

: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 127 1 581 00:01.0 

; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:OUTPUTHLP/OBJ=OBJ$:QUTPUTHLP MSRC$:OUTPUTHLP/UPDATE=(ENH$:OUTPUTHLP) 
Size: 3858 coge + 440 data bytes 
Run Time: 1: 


Elapsed Time: 02:32.9 
Lines/CPU Bin: 079 
Lexemes/CPU-Min: 27990 
puma | Used: 351 pages 
Compilation Complete 
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L EQUIPMENT CORPORATION 
ENTIAL. AND PROPRIETARY 


019 AH-BT13A-SE | DIGI 
VL77 VAX/VMS V4.0 CONF 


"AH: BT13A-SE 
VAX/VMS V4.0 


0200 


TIA r 


ON 


R 


